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ABSTRACT 

This research looked at absenteeism on a Corps-wide basis 
to determine the extent of recidivism and man-days lost to 
the Marine Corps as a result of unauthorized absenteeism. The 
personnel records for absentees contained in the Marine Corps' 
Transaction Retrieval System files were analyzed using computer 
programming. It was found that there were 60,120 incidents of 
unauthorized absence (UA) reported during the Calendar Year 
1974. This number includes a count of 6,799 incidents which 
were for a period of less than 24 hours and 12,393 incidents 
of desertion. The recidivism rate was found to be approximate¬ 
ly 40.5 percent with 13,966 Marines as repeat offenders who 
were responsible for 39,630 incidents of UA. The Marine Corps 
also lost 2,230,033 man-days of service as a direct result of 
unauthorized absenteeism initiated during 1974. In addition, 
demographic factors were examined, in a preliminary way, for 
their possible relationship to absenteeism. 
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I. INTRODUCTION ^ 

Unauthorized absences (UA's) and desertion became increas¬ 
ingly serious problems for the Marine Corps during the later 
years of the Vietnam conflict. The lowering of mental and 

physical standards for induction just prior to the 1965 build- 

2 

up of forces in Vietnam, as well as 'Project 100,000' and the 
unpopularity of the Vietnam conflict, appear to have contri¬ 
buted to this rise in delinquency rates. 

Between 1967 and 1970, desertion rates increased from 27 
per 1,000 Marines to 60 per 1,000 in 1970. During this same 
period UA's increased from 78 per 1,000 to 174 per 1,000. 

That this problem has continued to grow in severity is evi- 

3 

denced by recent Marine Corps statistics which indicate that 
the desertion rate has now grown to 89 per 1,000 and the UA 
rate to 288 per 1,000 Marines for 1974. This amounts to ap¬ 
proximately 15,500 incidents of desertion and 50,200 incidents 
of UA for Fiscal Year 1974! 

As a direct result of these increases, a large burden has 
been placed upon the Marine Corps in terms of man-hours lost 

^Patterned after and adapted from research done by Drucker 
(1973) and Shoemaker (1974) to facilitate comparison with the 
most recent Army research. 

2 

Internal Marine Corps correspondence, references held by 
author. 

^Ibid. 
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through apprehension and confinement of offenders as well as 
reduced morale. Not only are personnel who are absent from 
duty unable to perform the tasks or duties to which they are 
assigned, but their absence often interferes with the perform¬ 
ance of those tasks to which their replacements had initially 
been assigned. In addition, manpower is lost when personnel 
are needed to administratively process absentee reports, to 
prosecute UA Marines, and to administer whatever punitive 
measures are awarded as a result of disciplinary action. High 
UA rates also have a detrimental effect on the morale of 
other Marines, further reducing the performance efficiency of 
men who have not gone UA or deserted, and the units to which 
they belong. 

One solution to the UA/deserter problem would be the re¬ 
jection of recruits who would be likely to go UA during their 
military service. Assuming that the manpower source is large 
enough to supply the required number of Marines and that UA- 
prone Marines could be identified, those most likely to go UA 
need not be accepted. Another solution could require that 
those Marines most likely to go UA or desert be given special 
treatment and counselling by the Marine Corps to reduce the 
likelihood that they would, in fact, go UA. For example, 
special counselors could be assigned to those designated po¬ 
tential absentees to help them with personal problems or in 
adjusting to the demands of Marine Corps life. 
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While either approach could possibly minimize the Marine 
Corps' UA problem, they both require a means for identifying 
absentees in advance. Unfortunately, previous attempts to 
develop techniques for predicting which Marines would go UA 
and/or desert have been relatively unsuccessful. Neverthe¬ 
less, the fact that some Marines go UA while others do not, 
even when facing similar situations, strongly suggests that 
the factors that predispose them to become absentees lie in 
the background, attitudes, and personalities of the Marines 
themselves. These factors have led to increased interest on 
the part of the Marine Corps in obtaining information that 
might help in combating the increasing tendency toward UA and 
desertion. 
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II. LITERATURE REVIEW 


There is no lack of information available on absenteeism 
for the civilian sector of our society. For example, L. W. 
Porter and R. M. Steers (1972) reported on the research car¬ 
ried out over the last fifteen years on factors related both 
to turnover and absenteeism. Over sixty empirical studies 
were reviewed and organized under the topics of: overall job 
satisfaction, organization-wide factors, immediate work en¬ 
vironment factors, job-related factors, and personal factors. 
In comparison, however, limited research has been conducted 
in the military sector. The following review is adapted from 
the research of E. H. Drucker (1973) and W. B. Shoemaker 
(1974) and is presented to indicate the nature and scope of 
research done in the military sector. 

A great deal of research has been conducted in an attempt 
to identify factors among military personnel that predispose 
servicemen to become absentees, and a number of personality 
and background factors have been found to be associated with 
this delinquent behavior. For example, the Army Behavioral 
Science Research Laboratory (BESRL) conducted a study [1] in 
which three delinquency scales from the Personal Opinion Study 
and a scale developed from BESRL's Personal History Form, the 
Overall Acceptability Scale, were administered to a sample of 
basic trainees. The scales were examined for their ability 
to predict delinquency by comparing the responses made by 
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nondelinquents to those made by soldiers who had later become 
disciplinary problems. But the results tended to show that 
the scales could not, at a statistically significant level, 
efficiently differentiate between the men in these two groups 
and as a consequence, it was concluded that these scales 
would not be useful for predicting which soldiers would com¬ 
mit disciplinary offenses. 

In other studies, the U. S. Naval Retraining Command [2, 
3, 4, 5, 6] evaluated the Delinquency Potential (DP) scale, 
an instrument developed from personality tests. This scale 
was formulated from items selected from the Minnesota Multi- 
phasic Personality Inventory (MMPI) and the California 
Psychological Inventory (CPI). To develop the DP scale, 474 
items from the two personality tests were administered to 
20,000 men. The 119 items to which delinquents and nondelin¬ 
quents responded most differently were selected to be in¬ 
cluded in the scale. In one study [5], it was found that 51 
percent of all delinquents could be identified, but 25 per¬ 
cent of the nondelinquents were incorrectly identified as 
delinquents. Thus, although the DP scale did differentiate 
between delinquents and nondelinquents, it did not differenti 
ate well enough to be useful for prediction purposes because 
of the high percentage of false positives. 

In another study of delinquency [7], the Socialization 
scale of the CPI was administered to 762 inductees and 303 
stockade prisoners at Fort Ord. It was found that inductees 
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and stockade prisoners tended to differ in their responses. 
One-third of the stockade prisoners could have been correctly 
identified by the scale, but one percent of the inductees 
would have been incorrectly identified as prisoners. Because 
the number of recruits in the Army is far greater than the 
number of stockade prisoners, misclassification of one percent 
of the inductees would have caused a very large number of 
nondelinquents to be misclassified as probable delinquents. 

The results of several studies indicate that delinquents 
more often have a history of juvenile arrest than do nonde¬ 
linquents [8, 9, 10, 11]; that delinquents are younger than 
nondelinquents, usually much closer to the minimum enlistment 
age of 17 [12, 13]; that delinquents are more likely to be 
non-Whites [9]; that delinquents are more likely to have low 
mental aptitude scores [9, 10, 11, 12]; and that delinquents 
are more likely than nondelinquents to have less than an 
eleventh grade education [1, 10, 11, 12]. Many delinquents 
were found to come from unstable homes or homes in which the 
parents were divorced [9], or, if the father was present, dis¬ 
cipline given by him was shown to be important, being either 
too harsh or too lenient [8, 9]. Research on the personality 
characteristics of offenders shows that they tend to flee 
frustrating situations rather than face them. They have few 
long-range goals, are impulsive, and seek immediate satisfac¬ 
tion of needs. UA's have been described as being overly 
aggressive, hostile toward their environment, egocentric, and 
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more likely to have somatic complaints [13]. In addition, 
military delinquents have been found to be low in self¬ 
esteem [14] . 

A study by the U. S. Navy Neuropsychiatric Unit [15] found 
that factors that predicted adjustment to the Marines included 
years of education, history of school repulsion, and age at 
enlistment. Among those factors found by researchers [16] to 
discriminate between delinquents and nondelinquents in the 
Navy were type of home life, number of health complaints, and 
history of civilian delinquency. In an earlier study of 
military delinquency by HumRRO [13], such factors as socio¬ 
economic status, home background, pre-Army delinquency, and 
aggressiveness were found to be important. 

In a recent HumRRO study Drucker [12] examined the follow¬ 
ing additional factors to determine their relationships with 
UA: personality, attitude toward the Army, career orientation, 

age, years of education, intelligence, aptitude, race. Army 
component, and physical status. The subjects were 2,072 en¬ 
listed men assigned to the U. S. Training Center, Armor, for 
basic combat training. Each man completed five scales from 
the California Psychological Inventory (CPI) and the TA-111 
Questionnaire, an attitude scale measuring favorability of 
attitudes toward the Army. Absentee information was obtained 
for each subject from units' morning reports. During both 
basic combat training and initial duty assignment, UA and 
non-UA subjects were found to differ in their scores on the 
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five personality scales. At both times, the non-UA subjects 
had the more socially desirable personalities; UA and non-UA 
subjects did not differ in their attitudes toward the Army; 

UA soldiers were found to have less education, lower intelli¬ 
gence, lower mechanical aptitude, and lower clerical aptitude 
than non-UA soldiers; neither race nor physical status was 
found to be related to UA; the same factors appear to cause 
both younger and older soldiers to go UA; the same factors 
that caused soldiers to go UA also influenced acquisition of 
military skills and leadership potential. 

In the latest HumRRO study. Shoemaker [17] continued to 
explore the potential use of personality tests for predict¬ 
ing which soldiers would go UA. Using 1,199 enlisted men as¬ 
signed to the U. S. Army Training Center at Fort Knox for 
basic combat training, each soldier completed the Delinquency 
Scale from the Minnesota Multiphasic Personality Inventory 
(MMPI), which measures abnormal personality traits; the Navy 
Delinquency Potential (DP) scale, a screen device for recruits 
prior to induction; the Psychopathic Delinquency Neurotic 
Delinquency and Subcultural Delinquency scales from the Per¬ 
sonal Opinion Study (POS), a personality inventory designed 
for use among normal persons; and a background information 
questionnaire. UA information was obtained for each subject 
from company commanders' misconduct reports. After eight 
months, follow-up data were collected. The soldier's rela¬ 
tionship with his mother was the variable that best 
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differentiated between UA's and nondelinquents and between 
delinquents and nondelinquents after eight months in service. 
Other variables that successfully differentiated between UA's 
and nondelinquents after eight months were the type of disci¬ 
pline used by the father, marital status of parents, the 
Neurotic Delinquency Scale of the Personal Opinion Study, and 
UA intention. Variables that successfully differentiated be¬ 
tween delinquents and nondelinquents after eight months were 
the type of discipline used by the father, age, UA intention, 
and marital status of parents. While there were fewer absen¬ 
tees identified, there were far fev/er false positives. The 
Delinquency Potential scale was the variable that best differ¬ 
entiated between UA and nondelinquent soldiers and between de¬ 
linquents and nondelinquents during basic combat training; but 
the DP scale was not a useful predictor of UA status for 
soldiers with more than eights months of service. It also 
appeared that demographic variables were better able to dif¬ 
ferentiate between nondelinquents and either UA or delinquent 
soldiers than were delinquency scales. 

Using all variables that enabled statistically significant 
separation of men into UA and nondelinquent groups during basic 
combat training, 18 percent of the UA's and 99 percent of the 
nondelinquents could be correctly identified. For every US sol¬ 
dier who was correctly identified, two nondelinquents were false¬ 
ly classified as UA. After eight months in service, 35 percent 
of the UA men and 99 percent of the nondelinquents were 
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correctly identified for every nondelinquent falsely classi¬ 
fied as UA. 

Thus, while attempts to develop a scale for predicting 
which individuals would commit delinquent acts and become ab¬ 
sentees have improved, they are still not efficient enough for 
practical use. While many successful predictions of delin¬ 
quency can be made using these scales, they can be made only 
at a high cost since, for each absentee/delinquent correctly 
identified, an even greater number of nondelinquents would be 
incorrectly identified. If Marines were obtained from an un¬ 
limited source of manpower, erroneous classification might be 
tolerated. However, when they must be obtained from a limited 
manpower source, one that appears to be growing smaller [18], 
erroneous classification leads to the loss of too many success¬ 
ful Marines to be practical. It is clear that if potential 
delinquents are to be prohibited from military service, it 
first will be necessary to develop better techniques for pre¬ 
dicting delinquency and unauthorized absence. 

As can be concluded from the above material, the research 
that has been done in this area has been oriented toward at- 
titudinal surveys and personality scales with less attention 
paid to demographic variables. In general, absentee studies 
appear to be based on the assumption that there is a similari¬ 
ty amongst absentees (aside from the commonality of absence) 
differentiating them from others, and to this end researchers 
continue to refine instruments such as personality scales. 
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This thesis explores the available material from the per¬ 
sonnel records of the Marine Corps to explicate the scope of 


the UA and deserter problems and to examine, 
way, demographic factors possibly related to 


in a preliminary 
these problems. 
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III. METHOD 


A. TRANSACTION RETRIEVAL SYSTEM (TRS) 

The purpose of this research was to look at absenteeism 
on a Corps-wide basis to determine the extent of recidivism 
and man-days lost to the Marine Corps as a result of such un¬ 
authorized absenteeism. The research was accomplished by com¬ 
puter analysis of historical data records provided by Head¬ 
quarters, Marine Corps. 

The data provided the researcher consisted of seven reels 
of magnetic tape which were the Transaction Retrieval System 
(TRS) data tapes for the period 1 January 1974 to 31 December 
1974 and six similar reels of tape for 1973. The TRS is a 
subsystem within the Marine Corps Manpower Management System 
(MMS) and is a historical file made up of statistical trans¬ 
actions. The basic input to the TRS is a Unit Diary report 
which is submitted daily, or as required, to update personnel 
records by subordinate Marine commands at the reporting unit 
level (lowest unit commanded by an officer). For example, a 
Marine infantry company would submit daily reports to the com¬ 
puter facility describing personnel events such as promotions, 
leave status and absences. 

Each unit diary action statement which is input into the 
MMS in accordance with Marine Corps directives is encoded 
within the system and is assigned one of approximately 500 
type transaction codes (TTC). The assigned TTC is utilized 
during computer processing to identify the encoded action 
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statement as being of a certain type; e.g., promotion, MOS 
change, to leave, etc., to ensure that each individual master 
record is updated correctly. Approximately 300 critical action 
statements which generate 77 TTC's have been designated by the 
Marine Corps as statistical transactions. This designation 
as a statistical transaction requires MMS computer facilities 
to build a 240 byte statistical record each time one of the 
designated TTC's is processed at a computer facility. Each 
statistical record is assigned one of 46 type change codes 
(TCC) depending upon the TTC which caused the statistical 
record to be built. 

There are seven type change codes (TCC) which are concerned 
with unauthorized absenteeism: 

1. 'UA' - Marine absent less than 24 hours. 

2. 'U9' - 'UA' entry above is excused. 

3. 'Ul' - To unauthorized absence. 

4. 'US' - From unauthorized absence. 

5. 'U7' - 'Ul' entry above is excused. 

6. 'R4! - To desertion. 

7. 'A7' - From desertion. 

The statistical transactions include an action date to record 
the occurrence of the event. 

B. PROGRAMMING 

The structure of the TRS does not lend itself to ready 
analysis of the type undertaken by this reseeirch and it was 
necessary to code, sort and align the sought after information 
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by the means of computer programs. The investigator wrote 
these programs. The first step in putting the data into a 
more usable form was done utilizing the program 'ABSCODES.' 

This program read the seven TRS tapes, searched for absentee 
codes (TCC codes) and wrote them on a new tape. Thus, the 
seven tapes were collated onto one reel. Appendix A contains 
this program. 

The second step was to code the records into arithmeti¬ 
cally operable form for statistical analysis; i.e., from 
alphanumeric and alphabetic characters to numeric representa¬ 
tion. This step also reduces the size of the record from 
240 bytes to 80 bytes in length. Appendix B contains the 
program 'CODERUN' used in this step. 

Inasmuch as an individual Marine's absence record is not 
unbroken within the TRS because of the time lapse between 
entries, the third step was to sort the data by Social 
Security number, date, and TCC code. Program 'SSANSORT' 
which performed these operations is enclosed as Appendix C. 

The last step in data preparation was to condense all the 
separate entries into a single record for the Marine who caused 
them. One of the functions of the fourth computer program 
'ABSENTEE,' Appendix D, was to calculate and record the num¬ 
ber of days of absence for each incident of unauthorized ab¬ 
sence. This was done by subtracting the. date a Marine went 
to UA, or to desertion, from the date he returned. It is 
possible for incorrect entries to be posted to the TRS system 
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and also for entries to be missing. The following examples 
are provided to indicate the program logic dealing with this 
facet of data development. 


EXAMPLE 1: 


Code 



. SSAN 

ACTION 

4 

DATE 

U1 




123-45-6789 

Jan 2, 

1974 

U5 




123-45-6789 

Jan 7, 

1974 

U1 




123-45-6789 

Mar 4, 

1974 

U7 




123-45-6789 

Mar 9, 

1974 

U1 




123-45-6789 

Sep 1, 

1974 

U5 




123-45-6789 

Oct 1, 

1974 

Program 

’ABSENTEE' 

would compute: 



1. 

Days 

lost 

first 

absence = 5 (Jan 2 to Jan 7) 

• 

2. 

Days 

lost 

next 

absence = 'not 

computed as code indi- 

cates excused 

1 

• 





3. 

Days 

lost 

second absence = 30 

(Sep 1 to Oct 

1) . 

4. 

The Marine 

had 

two unauthorized incidents of 

: absence 

and one 

excused absence 

• 



5. 

Total 

man- 

days 

of service lost =35. 


6. 

Average time gone per UA was 

17 days. 


EXAMPLE 

2 l ' 






Code 



SSAN 

ACTION 

DATE 

U5 




123-45-6789 

Jan 7, 

1974 

U1 




123-45-6789 

Mar 4, 

1974 

U7 




123-45-6789 

Mar 9, 

1974 

U1 




123-45-6789 

Sep 1, 

1974 

U5 




123-45-6789 

Oct 1, 

1974 

4 

Action date refers 

to date event 

occurred and not the 

date posted to the 

MMS 

files. 
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Program 'ABSENTEE' would compute: 

1. Jan 7 entry ignored. 

2. One excused absence (Mar 4 to Mar 9). 

3. Days lost on the first absence = 30 (Sep 1 to Oct 1). 

4. The Marine had one incident of unauthorized absence 
and one excused absence. 

5. Total man-days of service lost = 30. 

6. Average time gone 30 days. 


EXAMPLE 3: 


Code 

U1 

U5 

U7 

U1 


SSAN 

123-45-6789 

123-45-6789 

123-45-6789 

123-45-6789 


Action Date 

Jan 2, 1974 
Jan 7, 1974 
Mar 9, 1974 
Sep 1, 1974 


Program 'ABSENTEE' would compute: 


1. One excused absence (Jan 2 to Jan 7). 


2. Days lost first absence = 122. Note—Marine began 


absence Sep 1 and had not returned by Dec 31. 


3. The Marine had one excused absence and one unauthorized 


absence. 


4. Total man-days of service lost = 122. 

5. Average time gone = 122 days. 

EXAMPLE 4; 


Code 

SSAN 

Action Date 

U1 

123-45-6789 

Jan 2 , 1974 

U5 

123-45-6789 

Jan 7, 1974 

U1 

123-45-6789 

Mar 4, 1974 

U7 

123-45-6789 

Mar 9, 1974 

U5 

123-45-6789 

Oct 1, 1974 


21 



Program 'ABSENTEE' would compute; 

1. Days lost first absence = 5 (Jan 2 to Jan 7). 

2. One excused absence (Mar 4 to Mar 9). 

3. An error for the October 1 entry. 

4. The Marine had one unauthorized absence and one ex¬ 
cused absence. 

5. Total man-days of service lost = 5. 

6. Average time gone = 5 days. 

Examples 1 and 2 were the typical cases encountered in 
the TRS files, while Examples 3 and 4 were not. The latter 
two examples triggered an error counter which incremented each 
time such a record was encountered. It should be noted that 
there were seven possibilities each time an entry was read for 
a given Marine;although all such possibilities are not illus¬ 
trated here. Program 'ABSENTEE' does provide for these eventu¬ 
alities . 

C. STATISTICAL PACKAGE FOR THE SOCIAL SCIENCES (SPSS) 

The following extract is taken from the introduction to 
the textbook describing SPSS [20]. "The Statistical Package 
for the Social Sciences (SPSS) is an integrated system of 
computer programs for the analysis of social science data. 

The system has been designed to provide the social scientist 
with a unified and comprehensive package enabling him to per¬ 
form many different types of data analysis in a simple and 
convenient manner. SPSS allows a great deal of flexibility 
in the format of data. It provides the user with a 
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comprehensive set of procedures for data transformation and 
file manipulation, and it offers the researcher a large num¬ 
ber of statistical routines commonly used in the social sci¬ 
ences ." 

"In addition to the usual descriptive statistics, simple 
frequency distributions, and crosstabulations, SPSS contains 
procedures for simple correlation (for both ordinal and inter¬ 
val data), partial correlation, multiple regression, factor 
analysis, and Guttman scaling. The data-management facili¬ 
ties can be used to modify a file of data permanently and can 
also be used in conjunction with any of the statistical pro¬ 
cedures. These facilities enable the user to generate varia¬ 
ble transformations, to recode variables, sample, select, or 
weight specified cases, and to add to or alter the data or 
the file-defining information. SPSS enables the social 
scientist to perform his analysis through the use of natural 
language control statements and requires no programming ex¬ 
perience on the part, of the user." 

SPSS is not presently available to analysts at Head¬ 
quarters, Marine Corps. However, it was available to this 
researcher and was utilized extensively during the conduct of 
his thesis research. 
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IV. RESULTS 


A. TRS FILE 

The TRS file as accessed by the programs given in Appen¬ 
dices A - D is an effective and useful tool for the study of 
absenteeism in the Marine Corps. With but minor programming 
changes any Marine command that houses a computer facility can, 
in a matter of minutes, monitor absenteeism down to the level 
of the individual reporting unit. 

By using the 'ABSENTEE' computer program with the TRS, 
the following results were obtained for the Marine Corps for 
the Calendar Year 1974: 

1. There were 60,120 incidents of absenteeism reported. 
This number includes a count of 6,799 incidents which were 
for a period of less than 24 hours (TCC code 'UA'). 

2. These incidents were caused by 34,456 different 
Marines. 

3. There were a total of 126,901 absence entries in the 
TRS file; within these entries 2,298 records were encountered 
which triggered an error counter. This is an error percent¬ 
age of 1.83 percent. There were, in addition, 1,429 dupli¬ 
cate entries in the system. 

4. There were 1,196 cases of reported unauthorized ab¬ 
sence that were subsequently excused. 

5. The Marine Corps lost 2,230,033 man-days of service 
as a direct result of unauthorized absenteeism. This is a 
conservative figure and does not include absences less than 
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24 hours or absences initiated at a time prior to January 1, 
1974, and continued into 1974. 

Similar results were obtained for Calendar Year 1973: 

1. There were 63,470 total incidents of absenteeism in¬ 
cluding 12,452 absences of less than 24 hours. 

2. These incidents were caused by 34,267 Marines. 

3. The computer program 'ABSENTEE' encountered 4,342 
entries it treated as errors, and on a basis of 126,803 total 
system entries, this represents an error percentage of 3.42 
percent. Five thousand duplicate entries were also encountered. 

4. The Marine Corps lost a minimum of 2,385,905 man- 
days of services during Calendar Year 1973 as a result of un¬ 
authorized absences - not including absences of less than 24 
hours duration. 

B. SPSS 

The SPSS programs can be used to break out numerous rela¬ 
tionships. Some results obtained by using SPSS with the 1974 
data include: 

1. Approximately 34,456 individuals caused 60,120 ab¬ 
sences for a mean of 1.745 absences per Marine who went UA. 

2. Of the 34,456 Marines, 20,490 individuals were absent 
only once, leaving 13,966 Marines as repeat offenders (approxi¬ 
mately 40.5%) responsible for 39,630 incidents of UA. This 
represents a mean of 2.84 absences per recidivist. 
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3. Of those 20,490 Marines who were absent only once. 


5 

5,848 (28.5%) were deserters and 2,578 (12.6%) were absent 
less than 24 hours. 

4. The mean/median number of lost days^ during 1974 for 
the following categories were: 


a. 

Deserters: 

130/116 days. 

b. 

Recidivist: 

80/47 days. 

c. 

Once only: 

54/7 days. 

d. 

Total population: 65/21 days. 

The 

mean/median 

duration of the first absence was: 

a. 

Deserter: 

76/42 days. 

b. 

Recidivist: 

18/4 days. 

c. 

Once only: 

54/7 days. 

d. 

Total population: 40/6 days. 


The below tables are representative of some of the results 
that can be obtained using the Statistical Package for the 
Social Sciences. 


5 

Normally a Marine is declared a deserter when he has been 
absent for 30 days. A Marine can also be declared a deserter 
immediately if there is clear indication that he does not in¬ 
tend to return to his unit. 

^Lost days refers to total days lost during the calendar 
year and not to single incidents. 



TABLE I 


RECIDIVIST TOTAL ABSENCES 
(THREE OR MORE TIMES) 


CROSSTABULATION OF RANK BY RACE FOR 1974 


RANK 

COUNT 
ROW PCT 
COL PCT 
TOT PCT 

RACE 

ROW 

TOTAL 

AI-IER IND 

1. 

CAUC 

2. 

NEGRO 

4. 

MALAY 

5. 

PVT 

1. 

43 

2059 

995 

4 

3101 



1.4 

66.4 

32.1 

0.1 

50.0 



51.8 

49.2 

51.9 

28.6 




0.7 

33.2 

16.1 

0.1 


PFC 

2. 

29 

1347 

598 

6 

1980 



1.5 

68.0 

30.2 

0.3 

31.9 



34.9 

32.2 

31.2 

42.9 




0.5 

21.7 

9.6 

0.1 


LCPL 

3. 

7 

564 

247 

2 

820 



0.9 

68.8 

30.1 

0.2 

13.2 



8.4 

13.5 

12.9 

14.3 




0.1 

9.1 

4.0 

0.0 


CPL 

4. 

2 

148 

55 

1 

206 



1.0 

71.8 

26.7 

0.5 

3.3 



2.4 

3.5 

2.9 

7.1 




0.0 

2.4 

0.9 

o 

• 

o 


SGT 

5. • 

2 

55 

17 

1 

75 



2.7 

73.3 

22.7 

1.3 

1.2 



2.4 

1.3 

0.9 

7.1 




0.0 

0.9 

0.3 

0.0 


SSGT 

6. 

0 

9 

3 

0 

12 



0.0 

75.0 

25.0 

0.0 

0.2 



0.0 

0.2 

0.2 

0.0 




0.0 

0.1 

0.0 

0.0 


GYSGT 

7. 

0 

2 

3 

0 

5 



0.0 

40.0 

60.0 

0.0 

0.1 



0.0 

0.0 

0.2 

0.0 




0.0 

0.0 

0.0 

0.0 


COLUMN 


83 

4184 

n 

14 

6199 

TOTAL 


1.3 

67.5 


0.2 

100.0 
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TABLE II 

RACIAL DISTRIBUTION OF UNAUTHORIZED ABSENCES BY DIVISION FOR 1974 



1ST MARINE DIVISION 

2ND MARINE DIVISION 

3RD MARINE DIVISION 


ABSOLUTE 

RELATIVE 

ABSOLUTE 

RELATIVE 

ABSOLUTE 

RELATIVE 


FREQUENCY 

FREQUENCY 

FREQUENCY 

FREQUENCY 

FREQUENCY 

FREQUENCY 



(PERCENT) 


(PERCENT) 


(PERCENT) 

American 

Indian 

128 

3.3 

50 

0.6 

47 

2.3 

Caucasian 

2848 

72.5 

4939 

60.0 

1340 

66.9 

Mongoloid 

5 

0.1 

0 

0 

0 

0 

Negro 

921 

23.4 

3241 

39.4 

604 

30.2 

Malaysian 

25 

0.6 

5 

0.1 

11 

0.5 

Unknown 

1 

0.0 

0 

0.0 

0 

0.0 

TOTALS 

3928 

100.0 

8235 

100.0 

2002 

100.0 




TABLE III 


UNAUTHORIZED ABSENCES BY DIVISION AND MOS FOR 1974 



1ST MAR DIV 

2ND MAR DIV 

3RD MAR DIV 


ABS. 

REL. 

ABS. 

REL. 

ABS. 

REL. 

MOS 

FREQ. 

FREQ. 

(%) 

FREQ. 

FREQ. 

(%) 

FREQ. 

FREQ. 

(%) 

01 PERS ADMIN 

86 

2.2 

118 

1.4 

48 

2.4 

02 INTELL 

7 

0.2 

5 

0.1 

2 

0.1 

03 INFANTRY 

1848 

47.0 

5273 

64.0 

1117 

55.8 

04 LOGISTICS 

18 

0.5 

23 

0.3 

4 

0.2 

08 ARTILLERY 

292 

7.4 

482 

5.9 

14 2 

7.1 

11 UTILITIES 

31 

0.8 

33 

0.4 

9 

0.4 

13 SHORE PARTY 

271 

6.9 

419 

5.1 

80 

4.0 

14 MAPPING 

3 

0.1 

9 

0.1 

1 

0.0 

15 LITHOGRAPHY 

2 

0.1 

3 

0.0 

2 

0.1 

18 TANKS 

185 

4.7 

1 

0.0 

58 

2.9 

21 ARMAMENT RPR 

78 

2.0 

59 

0.7 

20 

1.0 

23 EOD 

12 

0.3 

19 

0.2 

7 

0.3 

28 TLE COMM RPR 

14 

0.4 

17 

0.2 

7 

0.3 

30 SUPPLY 

112 

2.9 

238 

2.9 

66 

3.3 

32 RPR SVCS 

2 

0.1 

3 

0.0 

0 

0.0 

33 FOOD SVCS 

125 

3.2 

17 6 

2.1 

53 

2.6 

34 AUDITING 

10 

0.3 

4 

0.0 

4 

0.2 

35 MOTOR TRANS 

386 

9.8 

585 

7.1 

17 0 

8.5 

41 MC EXCHANGE 

1 

0.0 

19 

0.2 

1 

0.0 

43 PUBLIC AFF 

0 

0.0 

0 

0.0 

1 

0.0 

44 LEGAL SVCS 

3 

0.1 

1 

0.0 

0 

0.0 

46 PHOTOGRAPHY 

0 

0.0 

4 

0.0 

1 

0.0 

49 TRNG SUPPORT 

0 

0.0 

1 

0.0 

0 

0.0 

55 BAND 

3 

0.1 

7 

0.1 

5 

0.2 

57 NBC 

3 

0.1 

1 

0.0 

3 

0.1 

58 MP 

5 

0.1 

18 

0.2 

3 

0.1 

59 ELEC MAINT 

0 

0.0 

0 

0.0 

1 

0.0 

60 AC MAINT 

1 

0.0 

1 

0.0 

0 

0.0 

61 AC MAINT 

0 

0.0 

1 

0.0 

0 

0.0 

66 AVIONICS 

0 

0.0 

1 

0.0 

0 

0.0 

71 AIR DELIVERY 

0 

0.0 

0 

0.0 

1 

0.0 

UNKNOWN 

430 

10.9 

714 

8.7 

196 

9.8 

TOTALS 

3928 

100.0 

8235 

100.0 

2002 

100.0 
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TABLE IV 


RECIDIVIST TOTAL ABSENCES 
(UA THREE OF MORE TIMES) 


CROSSTABULATION OF MOS BY RACE FOR 1974 


MOS 

COUNT 
ROW PCT 
COL PCT 
TOT PCT 

RACE 

— 

AMER IND 

1. 

CAUC 

2. 




Personnel 

1. 

2 

133 

61 

IHR 

196 

& Adminis- 


1.0 

67.9 

31.1 


3.5 

tration 


2.7 

3.6 

3.4 





0.0 

2.4 

1.1 



Intelli- 

2. 

0 

0 

2 

0 

2 

gence 


0.0 

0.0 

100.0 

0.0 

0.0 



0.0 

0.0 

0.1 

0.0 




0.0 

0.0 

0.0 

0.0 


Infantry 

3. 

36 

1419 

945 

9 

2409 



1.5 

58.9 

39.2 

0.4 

43.1 



48.0 

38.1 

53.1 

69.2 




0.6 

25.4 

16.9 

0.2 


Logistics 

4. 

1 

11 

9 

0 

21 



4.8 

52.4 

42.9 

0.0 

0.4 



1.3 

0.3 

0.5 

0.0 




0.0 

0.2 

0.2 

0.0 


Field 

5. 

6 

175 

52 

0 

233 

Artillery 


2.6 

■nail 

22.3 

0.0 

4.2 



8.0 

mm 

2.9 

0.0 




0.1 


0.9 

0.0 


Utilities 

6. 

1 

44 

12 

0 

57 



1.8 

77.2 

21.1 

0.0 

1.0 



1.3 

1.2 

0.7 

0.0 




0.0 

0.8 

0.2 

0.0 


Construe- 

7. 

8 


93 

0 

348 

tion, Equip- 


2.3 


26.7 

0.0 


ment & Shore 


10.7 


5.2 

0.0 


Party 


0.1 

4.4 

1.7 

0.0 


COLUMN 


75 

3729 

1778 

13 

5595 

TOTAL 


1.3 

66.6 

31.8 

0.2 

100.0 
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TABLE IV CCONTINUED) 


MOS 

COUNT 
ROW PCT 
COL PCT 
TOT PCT 

RACE 

ROW 

TOTAL 

AMER IND 

1. 

CAUC 

2. 

NEGRO 

4. 

MALAY 

5. 

Drafting, 

8. 

0 

5 


0 

8 

Surveying 


0.0 

62.5 


0.0 

0.1 

& Mapping 


0.0 

0.1 


0.0 




0.0 

0.1 


0.0 


Lithog- 

9. 

0 

8 

2 

0 

10 

raphy 


0.0 

80.0 

20.0 

0.0 

0.2 



0.0 

0.2 

0.1 

0.0 




0.0 

0.1 

0.0 

0.0 


Tank and 

10. 

0 

69 

mRH 

0 

103 

Amphibian 


0.0 

67.0 


0.0 

1.8 

Tractor 


0.0 

1.9 

mam 

0.0 




0.0 

1.2 

0.6 

0.0 


Armament 

11. 

3 


16 

0 

82 

Repair 


3.7 


19.5 

0.0 

1.5 



4.0 

■B 

0.9 

0.0 




0.1 


0.3 

0.0 


Ammunition & 

12. 

0 

18 

2 

0 

20 

Explosive 


0.0 

90.0 

10.0 

0.0 

0.4 

Ordnance 


0.0 

0.5 

0.1 

0.0 


Disposal 


0.0 

0.3 

0.0 

0.0 


Telecommuni- 

15. 

1 

66 

5 

0 

72 

cations 


1.4 

91.7 

6.9 

0.0 

1.3 

Maintenance 


1.3 

1.8 

0.3 

0.0 




0.0 

1.2 

0.1 

0.0 


Supply Admin- 

16. 

2 

281 

142 

1 

426 

istration & 


0.5 

66.0 

33.3 

0.2 

7.6 

Operations 

1 

2.7 

7.5 

8.0 





0.0 

5.0 

2.5 



COLUMN 


1 75 

3729 

1778 

13 

5595 

TOTAL 

1 

! 

1.3 

66.6 

31.8 

0.2 

100.0 



































TABLE IV CCONTINUED) 


MOS 

COUNT 
ROW PCT 
COL PCT 
TOT PCT 

RACE 

AMER IND 

1. 

CAUC 

2. 

NEGRO 

4. 

MALAY 

5. 

Transporta- 

17. 

0 

19 

9 

0 

tion(freight 


0.0 

67.9 

32.1 

0.0 

& passenger) 


0.0 

0.5 

0.5 

0.5 



0.0 

0.3 

0.2 

0.0 

Repair Ser- 

18. 

0 

9 

4 

0 

vices (fabric 


0.0 

69.2 

30.8 

0.0 

& office 


0.0 

0.2 

0.2 

0.0 

machine) 


0.0 

0.2 

0.1 

0.0 

Food Services 

19. 

6 

192 

106 

0 



2.0 

63.2 

34.9 

0.0 



8.0 

5.1 

6.0 

0.0 



0.1 

3.4 

1.9 

0.0 

Auditing, 

20. 

0 

13 

4 

0 

Finance & 


0.0 

76.5 

23.5 

0.0 

Accounting 


0.0 

0.3 

0.2 

0.0 



0.0 

0.2 

0.1 

0.0 

Motor 

21. 

3 

493 

188 

3 

Transport 


0.4 

71.8 

27.4 

0.4 



4.0 

13.2 

10.6 

23.1 



0.1 

8.8 

3.4 

0.1 

Data 

22. 

0 

14 

3 

0 

Systems 


0.0 

82.4 

17.6 

0.0 



0.0 

0.4 

0.2 

0.0 



0.0 

0.3 

0.1 

0.0 

Marine Corps 

23. 

0 

13 

12 

0 

Exchange 


0.0 

52.0 

48.0 

0.0 



0.0 

0.3 

0.7 

0.0 



0.0 

0.2 

0.2 

0.0 

COLUMN 


75 

3729 

1778 

13 

TOTAL 


1.3 

66.6 

31.8 

0.2 


ROW. 

TOTAL 


28 

0.5 


13 

0.2 


304 

5.4 


17 

0.3 


687 

12.3 


17 

0.3 


25 

0.4 


5595 

100.0 
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TABLE IV (CONTINUED) 


MOS 

COUNT 
ROW PCT 
COL PCT 
TOT PCT 


AMER IND 
1, 

CAUC 

2. 

Public 

24. 

0 

0 

Affairs 


0.0 

0.0 



0.0 

0.0 



0.0 

0.0 

Legal 

25. 

0 

1 

Services 


0.0 

50.0 



0.0 

0.0 



0.0 

0.0 

Photography 

26. 

0 

1 



0.0 

33.3 



0.0 

0.0 



0.0 

0.0 

Training 

27. 

0 

5 

Support 


0.0 

83.3 



0.0 

0.1 



0.0 

0.1 

Band 

28. 

0 

2 



0.0 

50.0 



0.0 

0.1 



0.0 

0.0 

Nuclear, 

29. 

0 

2 

Biological 


0.0 

50.0 

& Chemical 


0.0 

0.1 



0.0 

0.0 

Military 

30. 

1 

16 

Police & 


3.6 

57.1 

Corrections 


1.3 

0.4 



0.0 

0.3 

COLUMN 


75 

3729 

TOTAL 


1.3 

—. 1 

66.6 


RACE 


NEGRO 

4. 

MALAY 

5. 

TOTAL 

1 

■n 

1 

100.0 


0.0 

0.1 

HBl 


0.0 

0.0 


1 

0 

2 

50.0 

0.0 

0.0 

0.1 

0.0 


0.0 

0.0 


2 

0 

3 

66.7 

0.0 

0.1 

0.1 

0.0 


0.0 

0.0 


1 

0 

6 

16.7 

0.0 

0.1 

0.1 

0.0 


0.0 

0.0 


2 

0 

4 

50.0 

0.0 

0.1 

0.1 

0.0 


0.0 

0.0 


2 

0 

4 

50.0 

0.0 

0.1 

0.1 

0.0 


0.0 

0.0 


11 

0 

28 

39.3 

0.0 

0.5 

0.6 

0.0 


0.2 

0.0 


1778 

13 

5595 

31.8 

0.2 

100.0 


33 

































TABLE IV (CONTINUED) 


MOS 

COUNT 
ROW PCT 
COL PCT 
TOT PCT 

RACE 

ROW 

TOTAL 

AMER INE 

1. 

CAUC 

2. 

NEGRO 

4. 

MALAY 

5. 

Electronics 

31. 

0 

4 

1 

0 

5 

Maintenance 


0.0 

80.0 

20.0 

0.0 

0.1 



0.0 

0.1 

0.1 

0.0 




0.0 

0.1 

0.0 

0.0 


Aircraft 

32. 

3 

255 

26 

0 

284 

Maintenance 


1.1 

89.8 

9.2 

0.0 

5.1 



4.0 

6.8 

1.5 

0.0 




0.1 

4.6 

0.5 

0.0 


Aircraft 

33. 

0 

27 

4 

0 

31 

Maintenance 


0.0 

87.1 

12.9 

0.0 

0.6 

(Helicopter) 


0.0 

0.7 

0.2 

0.0 




0.0 

0.5 

0.1 

0.0 


Aviation 

34. 

0 

25 

0 

0 

25 

Ordnance 


0.0 

100.0 

0.0 

0.0 

0.4 



0.0 

0.7 

0.2 

0.0 




0.0 

0.4 

0.0 

0.0 


Avionics 

35. 

1 

41 

5 

0 

47 



2.1 

87.2 

10.6 

0.0 

0.8 



1.3 

1.1 

0.3 

0.0 




0.0 

0.7 

0.1 

0.0 


Weather 

36. 

0 

2 

0 

0 

2 

Service 


0.0 

100.0 

0.0 

0.0 

0.0 



0.0 

0.1 

0.0 

0.0 




0.0 

0.0 

0.0 

0.0 


Aviation 

37. 

1 

56 

18 

0 

75 

Operations 


1.3 

74.7 

24.0 

0.0 

1.3 



1.3 

1.5 

1.0 

0.0 




0.0 

1.0 

0.3 

0.0 


COLUMN 


75 

3729 

1778 

13 


TOTAL 


1.3 

66.6 

31.8 

0.2 
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V. DISCUSSION 


The computer programming was done in as straightforward a 
manner as possible to facilitate understanding. In addition, 
the programs were written in COBOL to enhance their readabili¬ 
ty. 

Errors did exist in the TRS files in an individual's 
record. Entries were encountered indicating a Marine return¬ 
ing twice from UA without an entry indicating that he ever 
went to UA. Wherever possible, a conservative approach was 
taken when computing days lost and number of absences. The 
programming was not meant to be exhaustive. But every attempt 
was made to be as direct and logical as possible in consider¬ 
ing the alternatives when an error situation was encountered. 

Variables were coded and labeled as closely as possible 
to those given in the Marine Corps' Manpower Management Sys¬ 
tem Codes Manual (MCO P1080.20D). Space limitations precluded 
use of the entire amount of information that is available on 
the personnel records; for example, the codes identifying the 
Marine's specific subordinate command were available but not 
used. In this instance, it was thought that the major command 
groupings (MCC's) were more useful. 

The volume of output available from SPSS was fairly mass¬ 
ive and time constraints did not allow for exhaustive analysis. 
Bound in a separate volume as Appendix E are the following 
computer runs: 
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entire UA population, 
deserted one or more times, 
recidivist with two or more 

only one absence. 

Caucasian absences. 

Negro absences. 

American Indian absences. 

B. CROSSTABULATION LISTINGS 


1. CRSTABS . entire population by race. 

2. RECIDXTB .. recidivist (two or more ab¬ 

sences) by race. 

3. DESERXTB .. deserters by race. 


The codebook listings are the computer printout of the 
SPSS routine CODEBOOK for the Calendar Year 1974. It provides 
a listing of all variables encountered and their values to¬ 
gether with frequency distributions. The following variables 


are displayed: 

1. TOTALABS .. total number of absences for 

the year. 

2. UACTR .. total number of absences less 

than 24 hours. 

3. XDESERTB . number of incidents of deser¬ 


tion for the year. 


A. CODEBOOK LISTINGS 

1. CODEBOOK 

2. DESERTER 

3. RECIDIVIST .. 
absences. 

4. ONCEONLY 

5. WHITES 

6. BLACKS 

7. INDIANS 
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4. MCC 

5. RACE 

6. CITZNSHP 
naturalized, etc.) 

7. NATION 

8. SEX 

9. AGE 

10. RANK 

11. TIG 

particular rank). 

12. TIS 


major Marine commands, 
race. 

citizenship (U.S., alien, 

nationality. 

sex. 

age. 

service rank. 

time in grade (time in 

time in service (service 


longevity). 

13. TOS . time on station (longevity 

at particular Marine installation). 

14. MOS . military occupational special¬ 

ty. 

15. MOSBASIC . MOS training. 

16. ASGCODE . comparison BILLET-MOS with 

MOS. 

17. CIVEDUC . civilian education codes. 

18. CIVEDUCl . high school distribution. 

19. GCT . General Classification Test 

scores. 

20. AFQT .. Armed Forces Qualification 

Test scores. 


21. HORSTATE 


distribution by state. 
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22. ENTRYCD . source of entry codes. 

23. SPRANKCD . special rank codes for 

present grade. 

24. COMBTSVC . combat service. 

25. PAPCODE . personnel allocation plan 

codes. 

26. DUSTAT . duty status codes. 

27. STRCAT . strength category codes. 

28. DULIM . duty limitation codes. 

29. PROPAY . proficiency pay codes. 

30. NODEPS . number of dependents. 

31. COMP .. component codes. 

32. LENENL . length of enlistment. 

33. LENABSl . length of the first absence. 

34. LENABS2 . length of the second absence. 

35. LOSTTIME . total days of absence for 

the year. 

36. AVGXUA . average time UA. 


The crosstabulation listings are the computer printout 
of the SPSS routine CROSSTABS for the Calendar Year 1974. It 
provides a crosstabulation of all variables encountered and 
their values together with frequency distributions. The 
following variables were crosstabulated with RACE: TOTALABS, 
UACTR, SDESERTD, MCC, SEX, AGE, RANK, MOS, CIVEDUC, CIVEDUCl, 
HORSTATE and NODEPS. 
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VI. CONCLUSION 


The main thrust of this research has been directed toward 
the development of the Transaction Retrieval System (TRS) as 
a usable resource for the analysis of absenteeism. Certainly 
the TRS files have yielded a wealth of information that can 
be of direct benefit to the Marine Corps. It was found, for 
example, that 60,120 incidents of UA were caused by 34,456 
Marines with a recidivism rate of 40.5 percent. It was also 
found that these absences resulted in a loss to the Marine 
Corps of 2,230,033 man-days of service for 1974. 

Examined in a preliminary way were a number of demographic 
variables for their relationship to absenteeism. The Statis¬ 
tical Package for the Social Sciences (SPSS) was the main 
computer program used in the data analysis and was extremely 
valuable for the clarity of its output. In regard to data 
analysis there is at least one major limitation on the informa¬ 
tion presented in this study and that is that no reference is 
made to the entire Marine Corps enlisted population. For 
example, results indicated 9.7 percent of the absentees were 
from California and 8 percent were from Ohio; these figures 
are limited in that their statistical significance is not known 
unless they are matched against Marine Corps enlistment per¬ 
centages for those states. 

With the personnel specifics in hand Corps-wide research 
can be more effectively conducted to replicate and/or test 
theories and hypothesis mentioned in the literature review. 
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For example, the overall racial mix between white and black 
offenders is 71.2 percent white and 27 percent black while 
the statistics for the infantry field indicate that 62.9 per¬ 
cent of the repeat offenders with two or more offenses of UA 
are white and 35.1 percent black. This would indicate an 
area for further research considering that approximately 35 
percent of all absences occur within the infantry field. It 
is also suggested that a cost analysis be performed to more 
fully illuminate the importance of the UA problem. 
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APPENDIX A 


ABSCODES PROGRAM 


IDENTIFICATION DIVISION. 

PROGRAM-ID. ABSCODES. 

AUTHOR. D J JENKINS, CART, USMC. 

INSTALLATION. NAVAL POSTGRADUATE SCHOOL, MONTEREY, CALIF. 
DATE-WRITTEN. APRIL 1975. 

DATE-COMPILED,. APRIL 1975 . 

SECURITY. UNCLASSIFIED. 

REMARKS. PROGRAM # 1 OF 4 CONCERNING UNAUTHORIZED 

ABSENCE IN THE US MARINE CORPS. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. I3M-360-67. 

OBJECT-COMPUTER. I3M-360-67. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT PERS-REC ASSIGN TO UT-S-TAPEIN. 

SELECT MASTER-LIST ASSIGN TO UT-S-TAPEOUT. 

DATA DIVISION. 

FILE SECTION. 

FD PERS-REC 

RECORD CONTAINS 240 CHARACTERS 
BLOCK CONTAINS 10 RECORDS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS PERS-FILE. 

01 PERS-FILE. 

02 TCC -PIC XX. 

02 FILLER oiC X(238). 

FD MASTER-LIST 

RECORD CONTAINS 240 CHARACTERS 
BLOCK CONTAINS 10 RECORDS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS STAT-REC. 

01 STAT-REC PIC X(240). 

PROCEDURE DIVISION. 

BEGIN. 

OPEN INPUT PERS-REC, OUTPUT MASTER-LIST. 



-5 


READ-AND-PROCESS. 

READ PERS-REC AT END GO TO FINISH. 

IF TCC = *UA' OR TCC = 'Ul' OR TCC = 'US' 

OR TCC = 'UT* OR TCC = '09’ OR TCC = ’R4* 
OR TCC = ’A7', MOVE PERS-FILE TO STAT-REC, 
WRITE STAT-REC, GO TO REAO-AND-PROCESS. 

GO TO READ-AND-PROCESS. 

FINISH. 

CLOSE PERS-REC WITH DISP. 

CLOSE MASTER-LIST. 

STOP RUN. 







APPENDIX B 


CO 


CODE^UN PROGRAM 


IDENTIFICATION 

PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

REMARKS. 


DIVISION. 

CODERUN. 

D J JENKINS, CAPT, USMC. 

NAVAL POSTGRADUATE SCHOOL, MONTEREY, CALIF. 
APRIL 1975. 

APRIL 1975. 

UNCLASSIFIED. 

PROGRAM # 3 OF 4 CONCERNING UNAUTHORIZED 
ABSENCE IN THE US MARINE CORPS. 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360-67. 

OBJECT-COMPUTER. I8M-360-67. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT PERS-REC ASSIGN TO UT-S-TAPEIM, 
SELECT MASTER-LIST ASSIGN TO UT-S-TAPEOUT. 

DATA DIVISION. 

FILE SECTION. 

FD PERS-REC 


RECORD CONTAINS 240 CHARACTERS 


BLOCK CONTAINS 10 

RECORDS 


LABEL RECORDS ARE 

STANDARD 


DATA 

. RECORD IS PERS-FILE. 


PERS 

,-FILE. 



02 

TCC 

PIC 

XX. 

02 

DATE 

PIC 

S9(7), COMP-3 

02 

FILLER 

PIC 

X. 

02 

LEN-ENL 

PIC 

X. 

02 

RACE 

PIC 

X. 

02 

SEX 

PIC 

X. 

02 

SSAN 

PIC 

X(10). 

02 

F ILLER 

PIC 

XXX . 

02 

DU-LIM 

PIC 

X. 

02 

F ILLER 

PIC 

XX. 

02 

SP-RANK-CODE 

PIC 

X. 

02 

PRO-PAY 

PIC 

X. 

02 

FILLER 

PIC 

XX. 

02 

E-CODE 

PIC 

X. 

02 

RANK 

PIC 

X. 





02 FILLER 
02 OATE-DF-RANK 
02 FILLER 
02 FIL-1 
02 FILLER 
02 MOS 
02 MOS-BASIC 
02 EAS 
02 FILLER 
02 DATE-OF-BIRTH 
02 FIL-2 
02 FIL-3 
02 DATE-CTB 
02 FILLER 
02 BILLET-MOS 
02 RUC 
02 MCC 
02 FIL-4 
02 ENTRY-CODE 
02 FILLER 
02 COMPONENT 
02 FILLER 
02 NO-DEPS 
02 FILLER 
02 CIV-EDUC 
02 CIY-EOUC-MS 
02 OLD-MCC 
02 COMBAT-SVC 
02 FILLER 
02 HOR-COUNTY 
02 HOR-STATE 
02 STRENSTH-CAT 
02 ACDU-BD 
02 FILLER 
02 PAP-CODE 
02 DUTY-STATUS 
02 FILLER 
02 FIL-5 
02 FILLER 
02 CITI2ENSHIP 
02 NATION 
02 FILLER 
02 EXT-TOT 
02 FILLER 
02 EXT-CUR 
0 2 TTC 
02 GCT 
02 FILLER 


PIC X • 

PIC S9(7), COMP-3 
PIC XdO) . 

PIC S9(7), COMP-3 
PIC X(4). 

PIC XX. 

PIC XX. 

PIC X(6). 

PIC X(6) . 

PIC S9(7), COMP-3 
PIC S9(7)t COMP-3 
PIC S9(7), CCMP-3 
PIC 59(7), COMP-3 
PIC X. 

PIC X(4) , 

PIC X{5 ) . 

PIC XXX. 

PIC S9(2)t COMP-3 
PIC X. 

PIC XXX. 

PIC X. 

PIC X(5) . 

PIC S99, COMP-3. 
PIC X(4). 

PIC X. 

PIC XX. 

PIC XXX. 

PIC X. 

PIC X. 

PIC X(4). 

PIC XX. 

PIC X. 

PIC S9(7), COMP-3 
PIC XI8) , 

PIC X. 

PIC X. 

PIC X(32). 

PIC S9(7), COMP-3 
PIC XXX. 

PIC X. 

PIC XX. 

PIC X(23). 

PIC XX. 

PIC X. 

PIC XX. 

PIC XXX. 

PIC S9(2), CGMP-3 
PIC XXX, 



02 

AFQT 

PIC 

XX. 

02 

FILLER 

PIC 

X(6) . 

02 

F lL-6 

p IC 

S9(7) 

02 

FILLER 

PIC 

XXX. 


FD MASTER-LIST 

RECORD COMTAINS 80 CHARACTERS 
BLOCK CONTAINS 30 RECORDS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS DISK-REC. 


01 

DISK-REC 

PIC 

X(80) 

WORKING 

-STORAGE SECTION. 



77 

COUNTER 

PIC 

9(6) , 

77 

EXCLUSION-CTR 

PIC 

9(6) , 

77 

ws- 

MO-1 

P IC 

99. 

77 

TIG 

-1 

PIC 

999. 

77 

TOS 

-1 

PIC 

999. 

77 

TIS 

-1 

PIC 

999. 

77 

ws- 

BILLET-MOS 

PIC 

X (4) , 

01 

ws- 

pers-file. 




02 

FILLER 

PIC 

X(6) . 


02 

WS-TCC 

PIC 

X. 


02 

WS-OATE 

PIC 

9(6) . 


02 

WS-CENTURY-DATE 

PIC 

9(5). 


02 

WS-CENIURY-MONTH 

PIC 

9(3). 


02 

WS-SSAN 

PIC 

9(10) 


02 

WS-RACE 

PIC 

X. 


02 

WS-SEX 

PIC 

X. 


02 

WS-RANK 

PIC 

X. 


02 

WS-TIME-IN-GRADE 

PIC 

999. 


02 

WS-SP-RANK-COOE 

PIC 

X. 


02 

WS-EMTRY-CODE 

PIC 

X. 


02 

WS-AGE 

PIC 

99. 


02 

WS-COMPONENT 

PIC 

X. 


02 

WS-CITIZENSHIP 

PIC 

X. 


02 

WS-NAT I ON 

PIC 

XX. 


02 

WS-TIME-ON-STATION 

PIC 

999. 


02 

WS-TIME-IN-SERVICE 

P IC 

999 . 


02 

WS-MOS 

PIC 

XX. 


02 

WS-MOS-BASIC 

PIC 

X. 


02 

WS-ASG-CODE 

PIC 

X. 


02 

WS-PRO-PAY 

PIC 

X. 


02 

WS-NO-DEPS 

PIC 

XX. 




COMP-3 


VALUE ZEROS. 
VALUE ZEROS. 

VALUE ZEROS. 




02 

WS-CIV-EDUC 

PIC 

XX. 


02 

WS-CIV-EDUC-MS 

PIC 

X. 


02 

WS-COMB AT-SVC 

PIC 

X. 


02 

WS-PAo-CODE 

PIC 

XX. 


02 

WS-DUTT-STATUS 

P IC 

XX. 


02 

WS-STRENGTH-CAT 

PIC 

XX. 


02 

WS-DU-L IM 

PIC 

X. 


02 

WS-GCT 

PIC 

9(3) . 


02 

WS-AFQT 

PIC 

XX. 


02 

WS-HOR-STATE 

PIC 

XX. 


02 

WS-MCC 

PIC 

XX. 


02 

WS-LEN-ENL 

PIC 

X. 


02 

F ILLER 

P IC 

X. 

01 

WS- 

PMOS. 




02 

WS-PMOSl 

P IC 

XX. 


02 

WS-PM0S2 

PIC 

XX. 

01 

WS- 

CENTURY-CODE 

PIC 

9(6) . 

01 

ws- 

CC REDEFINES WS-CENTURY-i 

CODE. 


02 

WS-YEAR 

PIC 

99. 


02 

WS-MONTH 

PIC 

99. 


02 

WS-DAY 

PIC 

99. 

01 

WS- 

DATE-GF-RANK 

PIC 

9(6) . 

01 

ws- 

DOR REDEFINES WS- 

DATE-OF' 

-RANK. 


02 

DOR-YEAR 

PIC 

99. 


02 

DOR-MO 

PIC 

99. 


02 

DOR-DAY 

PIC 

99. 

01 

WS- 

DATE-OF-B IRTH 

PIC 

9(6 ) . 

01 

WS- 

DOB REDEFINES WS- 

DATE-OF- 

-BIRTH 


02 

DOB-YEAR 

PIC 

99. 


02 

DOB-MO 

PIC 

99. 


02 

DOB-DAY 

PIC 

99. 

01 

WS- 

ACDU-3D 

PIC 

9(6). 

01 

WS- 

ACDU REDEFINES WS 

-ACDJ-BD. 


02 

ACDU-YEAR 

PIC 

99. 


02 

ACDU-MO 

P IC 

99. 


02 

ACDU-DAY 

PIC 

99. 

01 

WS- 

DATE-CTB 

PIC 

9(6) . 

01 

ws- 

DCTB REDEFINES WS 

-DATE-CTB. 


02 

CTB-YEAR 

PIC 

99. 


02 

CTB-MO 

P IC 

99. 


02 

CTB-DAY 

PIC 

99. 


01 


MONTH-VALUES 



02 

JAN 

PIC 

999, 

VALUE 

000 . 

02 

FEB 

PIC 

999, 

VALUE 

031. 

02 

MAR 

PIC 

999, 

VALUE 

059. 

02 

APR 

PIC 

999, 

VALUE 

090. 

02 

MAY 

PIC 

999, 

VALUE 

120 . 

02 

JUN 

PIC 

999 , 

VALUE 

151 . 

02 

JUL 

PIC 

999, 

VALUE 

181. 

02 

AUG 

PIC 

999, 

VALUE 

212 . 

02 

SEP 

PIC 

999, 

VALUE 

243. 

02 

OCT 

PIC 

999, 

VALUE 

273. 

02 

NOV 

PIC 

999, 

VALUE 

304. 

02 

DEC 

PIC 

999, 

VALUE 

334. 


01 MONTH-TABLE REDEFINES MONTH-VALUES. 

02 WS-MO PIC 999t OCCURS 12 

PROCEDURE DIVISION. 

OPEN-FILES. 

OPEN INPUT PERS-REC, OUTPUT MASTER-LIST. 
MASS-MOVE. 

MOVE ZEROS TO WS-PER S-FI LE . 

MOVE ZEROS TO WS-CENTURY-CODE. 

MOVE ZEROS TO WS-DATE-OF-RANK. 

MOVE ZEROS TO WS-DATE-OF-BIRTH. 

MOVE ZEROS TO WS-ACD'J-BD. 

MOVE ZEROS TO WS-OATE-CTB. 

READ PERS-REC AT END GO TO FINISH. 


IF 

E-CODE 

NOT 

= • E* , 

GO 

TO 

MASS-MOVE 

IF 

TCC 

— 

•UA' , 

MOVE 

• A • 

TO 

WS-TCC. 

IF 

TCC 


’ U1 ’ , 

MOVE 

' 1 • 

TO 

WS-TCC. 

IF 

TCC 

= 

• R4' , 

MOVE 

14 , 

TO 

WS-TCC. 

IF 

TCC 

= 

• U 5 • , 

MOVE 

I 5 • 

TO 

WS-TCC. 

IF 

TCC 


» U7' , 

MOVE 

1 7 , 

TO 

WS-TCC. 

I F 

TCC 

=: 

• A7' , 

MOVE 

• 8 ’ 

TO 

WS-TCC. 

IF 

TCC 


’ U9' , 

MOVE 

19 , 

TO 

WS-TCC. 


MOVE DATE TO WS-DATE. 

MOVE DATE TO WS-CENTURY-CODE. 

MOVE SSAN TO WS-SSAN. 

MOVE NO-DEPS TO WS-NG-DEPS. 

IF RACE = 'A', MOVE '1« TO WS-RACE. 

IF RACE = 'C, MOVE '2' TO WS-RACE. 

IF RACE = ’M', MOVE '3' TO WS-RACE. 


TIMES. 




IF RACE 
IF RACE 
IF RACE 
AND 
AND 


= I 


N», MOVE ’TO WS-RACE. 
= *Z', MOVE *5* TO WS-RACE. 
NOT = *A» AND RACE NOT = 'C 
RACE NOT = 'M' AND RACE NOT 
RACE NOT = ’Z’, MOVE *6' TO 


= 'N' 

WS-RACE 


IF SEX = 'M», MOVE '1' TO WS-SEX. 
IF SEX = 'F', MOVE '2* TO WS-SEX. 
IF SEX NOT = 'fV AND SEX NOT = ’F* 
MOVE '3' TO WS-SEX. 



IF 

SP-RANK-COOE = ’A', 

MOVE 

• 1' 

TO 

WS-SP-RANK-CODE. 



I F 

SP-RAN<-CnDE = '3', 

MOVE 

1 ;> 1 

TO 

WS-SP-RANK-CODE. 



IF 

SP-RANK-CODE = 'C * , 

MOVE 

•3* 

TO 

WS-SP-RANK-CODE. 



I F 

SP-RAN<-CODE = 'O', 

MOVE 

• 4 • 

TO 

WS-SP-RANK-CODE. 



IF 

SP-RAN<-COC)E = ‘E', 

MOVE 

•5* 

TO 

WS-SP-RANK-CODE. 



IF 

SP-RANK-CODE = ' I ’ , 

MOVE 

*6* 

TO 

WS-SP-RANK-COOE. 



I F 

SP-RANK-CODE = 'P‘, 

MOVE 

•7' 

TO 

WS-SP-RANK-CODE. 



IF 

SP-RANK-CODE = 'R' , 

MOVE 

•3’ 

TO 

WS-SP-RANK-CODE. 



IF 

SP-RANK-CODE NOT = 'A 

* AND 

SP 

-RANK-CODE NOT = 'BS 




AND SP-RANK-CODE NOT 

= • r 

• , 

AND 

SP-RANK-CODE NOT = 

•D’ , 

00 


AND SP-RANK-CODE NOT 

= ' E 

• » 

AND 

SP-RANK-CODE NOT = 

• IS 



AND SP-RANK-CQOE NOT 

= • P 

•, 

AND 

SP-RAMK-CODE NOT = 

•RS 



MOVE '9' TO WS-SP-RANK-CODE. 





IF 

OU-LIM = ‘O' 


MOVE 

' 1' 

TO 

WS-OU-LIM. 

IF 

DU-LIM = 'A* 

f 

MOVE 

•2' 

TO 

WS-DU-LIM. 

IF 

DU-LIM = '3' 

T 

MOVE 

*3' 

TO 

WS-DJ-LIM. 

IF 

OU-LIM = ‘C’ 

J 

MOVE 

'4* 

TO 

WS-DU-LIM. 

IF 

DU-LIM = 'M' 

t 

MOVE 

• 5' 

TO 

WS-DU-L IM. 

IF 

DU-LIM = *0' 

t 

MOVE 

'6* 

TO 

WS-DU-LIM. 

IF 

DU-LIM = 'P' 

f 

MOVE 

•7' 

TO 

WS-DU-LIM. 

IF 

DU-LIM = 'S' 

T 

MOVE 

•8' 

TO 

WS-DU-LIM. 

IF 

DU-LIM NOT = 


'O' , 

AND 

OU-LTM NOT ^ 'AS 


AND DJ-LIiM 

NOT = 

•B', 

AND 

DU-LIM NOT = 


AND DU-LIM 

NOT = 

' M» , 

AND 

DU-LIM NOT = 


AND DU-LIM 

NOT = 

'PS 

AND 

DU-LIM NOT = 


MOVE *9' TO 


WS-DU 

-L IM 

• 



IF 

STRENGTH-CAT 


'O' , 

MOVE 

•01 • 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 

=: 

•IS 

MOVE 

•02’ 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 


'2S 

MOVE 

•03' 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 

= 

' 3S 

MOVE 

•04' 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 


•4' , 

MOVE 

•05‘ 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 


'5S 

MOVE 

•05' 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 

= 

• A • , 

MOVE 

•07' 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 


'8' , 

MOVE 

•08' 

TO 

WS-STRENGTH-CAT. 

IF 

STRENGTH-CAT 

= 

' C , 

MOVE 

•09* 

TO 

WS-STRENGTH-CAT. 








VO 


IF 

STRENGTH-CAT 


•D' , 

MOVE 

• 10 * 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

= 

•E ' , 

M3VE 

'll’ 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

= 

1 pi , 

MOVE 

112 * 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

= 

•G’ , 

MOVE 

1 131 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

s: 

'K* , 

MOVE 

• 14* 

TO 

WS-STRENGTH-C 

I F 

STRENGTH-CAT 

= 

• L' , 

MOVE 

• 15* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 


’ N' , 

MOVE 

' 16* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

= 

•P' » 

MOVE 

* 17* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

= 

’R' , 

MOVE 

’ 18* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

= 

• S' T 

MOVE 

• 19* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 


' T S 

MOVE 

* 20 * 

TO 

WS-STPENGTH-C 

IF 

STRENGTH-CAT 

= 

' U' , 

MOVE 

• 21 t 

TO 

WS-STKENGTH-C 

IF 

STRENGTH-CAT 


' v, 

MOVE 

*22* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

=: 

• w, 

MOVE 

’23* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

=: 

'Y' , 

MOVE 

• ?4* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

=: 

’ Z' » 

MOVE 

* 25* 

TO 

WS-STRENGTH-C 

IF 

STRENGTH-CAT 

NOT = 

•0* AND STRENGTH-CAT NOT = 




HCAT 


1-CAT 

:at 

AT 

;at 
:at 


= I 


AND STTENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AMD STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT 
AND STRENGTH-CAT NOT . 

MOVE '26* TO WS-STRENGTH-CAT. 


' 2 
•4 
’ A 
•C 
•E 
•G 
•L 

• P 
’ S 

•u 

• w 

‘ z 


AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 

AND 


STRENGTH-CAT 


STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 


ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 

ENGTH-CAT 


1 ' 

NOT 

NOT 

NOT 

NOT 

NOT 

NOT 

NOT 

NOT 

NOT 

NOT 

NOT 


= I 


I 

= I 
- I 


= I 


3' 
5* 
B* 
D» 
F' 
K » 
N’ 
R* 
T' 
V 
Y' 


IF 

HOR-STATE 

IS NUM 

ERIC , 

MOVE 

HOR-STATE TO WS-HOR-STATEt 


ELSE MOVE 

*52* 

TO WS 

-HOP- 

STATE. 

IF 

WS-HOR-S 

TATE > • 

52* , 

MOVE 

•5 

2* TO WS-HOR-STATE . 

I F 

PAP-CGDE 


' A* , 

MOVE 

• 01 * 

TO 

WS-PAP-COOE. 

IF 

PAP-CODE 

= 

'B* , 

MOVE 

* 0 ? ' 

TO 

WS-PAP-CODE, 

I F 

PAP-COOE 

= 

'C* , 

MOVE 

* 03 * 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 


' E* , 

MOVE 

* 04* 

TO 

WS-PAP-COOF. 

IF 

PAP-CODE 


'F* , 

MOVE 

* 05* 

TO 

WS-PAP-CODE. 

IF 

PAP-COOE 


*G * » . 

MOVE 

• 06* 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 


• H * , 

MOVE 

' 07 * 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 


' I * t 

MOVE 

* 08* 

TO 

WS-PAP-CODE. 

I F 

PAP-COOE 

= 

' J ' t 

MOVE 

* 09 * 

TO 

WS-PAP-CODE . 

IF 

PAP-CODE 


'K ' , 

MOVE 

' 10 * 

TO 

WS-PAP-CODE . 

I F 

PAP-CODE 

= 

' L ' t 

MOVE 

’ll* 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 


' S' , 

MOVE 

• 12 * 

TO 

WS-PAP-CODE. 

I F 

PAP-COOE 

= 

'X' , 

MOVE 

1 13 . 

TO 

WS-PAP-CODE. 












IF 

PAP-CODE 


•2 ' , 

MOVE 

1 141 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 


• N* , 

MOVE 

t 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 


‘ M* , 

MOVE 

* 16 • 

TO 

WS-PAP-COOE. 

IF 

PAP-CODE 

=: 

•R ' t 

MOVE 

’ 17' 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 

= 

’Q' f 

MOVE 

' 18 • 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 

= 

'T* , 

MOVE 

' 19* 

TO 

WS-PAP-CODE. 

I F 

PAP-CDDE 

rr 

•US 

MOVE 

’ 20 • 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 

r: 

• v, 

MOVE 

• 21 • 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 

=: 

’ w s 

MOVE 

' ? 7 • 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 

= 

•Y' , 

MOVE 

1 23 • 

TO 

WS-PAP-CODE. 

I F 

PAP-CODE 

= 

’Z', 

MOVE 

' 24 ' 

TO 

WS-PAP-CODE. 

IF 

PAP-CDOE 


•6 ' , 

MOVE 

» 75 ' 

TO 

WS-PAP-CODE . 

IF 

PAP-CODE 

=: 

•7*, 

MOVE 

' 26 • 

TO 

WS-PAP-CODE . 

IF 

PAP-CODE 

= 

’ 8* , 

MOVE 

• 27' 

TO 

wS-PAP-CODE. 

I F 

PAP-CDOE 


' 9* , 

MOVE 

' 28* 

TO 

WS-PAP-CODE. 

IF 

PAP-CODE 

NOT = 

• A' , 

AND PAP- 

CODE NOT = • B' t 


AND 

PAP-CODE 

NOT 


•c ' 

AND 

PAP-CODE 

NOT 


' E' , 

AND 

PAP-CODE 

NOT 

= 

' F • 

AND 

PAP-CODE 

NOT 


’G' , 

AND 

PAP-CODE 

NOT 

=: 

' H • 

AND 

PAP-CODE 

NOT 

= 

’ I’ t 

AND 

3AP-CODE 

NOT 

= 

' J ' 

AND 

PAP-CODE 

NOT 


•K' , 

AND 

PAP-CODE 

NOT 

= 

'L ' 

AND 

PAP-CODE 

NOT 


’ S' , 

AND 

PAP-CODE 

NOT 


•X • 

AND 

PAP-CODE 

NOT 

= 

• 2* , 

AND 

PA^-CQDE 

NOT 

= 

'N' 

AND 

PA^-CODE 

NOT 


» M' , 

AND 

PAP-CODE 

NOT 

= 

'R' 

AND 

PAP-CODE 

NOT 

= 

’O' , 

AND 

PA P-CODE 

NOT 

= 

• T • 

AND 

PAP-CCOF 

NOT 

r: 

•U' , 

AND 

PAP-CODE 

NOT 

= 

'V 

AND 

PAP-COOE 

NOT 

= 

1 w , 

AND 

PAi^-CODE 

NOT 

= 

t y • 

AND 

PAP-CODE 

NOT 

rz 

’ Z' , 

AND 

P A.°-CODE 

NOT 

= 

' 6 ' 

AND 

PAP-COOE 

NOT 

= 

' 7' , 

AND 

PAP-CODE 

NOT 


'8 ' 

AND 

PAP-COOE 

NOT 


'9* , 

MOVE 

*29' TO 

WS- 

PAP 

-CODE. 






IF 

CIV-EDUC 

= 

' 1 * 


MOVE 

• 01 • 

TO 

WS-CIV-EDUC. 

IF 

CIV-EDUC 


1 7 1 

t 

MOVE 

' 02 ' 

TO 

WS-CIV-EDUC. 

IF 

C IV-EDUC 


'3' 

T 

MOVE 

' 03 ' 

TO 

WS-CIV-EDUC. 

IF 

CIV-EDUC 


'4' 

t 

MOVE 

' 04 ' 

TO 

WS-CIV-EDUC. 

IF 

CIV-EDUC 

• = 

1 5f 

» 

MOVE 

' 05' 

TO 

WS-CIV-EDUC. 

IF 

CIV-EDUC 

= 

' 5 ' 

t 

MOVE 

'06 ' 

TO 

WS-CIV-EDUC. 

IF 

CIV-EDUC 


'7' 

f 

MOVE 

• 07» 

TO 

WS-CIV-EDUC. 

IF 

CIV-EDUC 

= 

' 8 ' 

t 

MOVE 

' OS* 

TO 

WS-CIV-EDUC . 

IF 

CIV-EDUC 

= 

'9' 

f 

MOVE 

• 09 • 

TO 

WS-CIV-EDUC. 

IF 

CIV-EDUC 


• M' 

t 

MOVE 

• 10 * 

TO 

WS-CIV-EDUC . 

IF 

CIV-EDUC 

NOT = 


' 1 ' AND CIV 

-EDUC NOT = '2', 


AND 

CIV-EDUC 

NOT 

= *3 • 

AND 

CW-EOUC 

NOT = 

*4' , 

AND 

CIV-EDUC 

NOT 

= •5« 

AMO 

CT V-EDUC 

NOT = 

• 6 ' , 

AND 

C I V - E DU C 

NOT 

= *7 ' 

AND 

CIV-EDUC 

NOT = 

• 8 ' , 

AND 

CIV-EDUC 

NOT 

= tgi 

AND 

CIV-EDUC 

NOT = 

'M' , 

MOVE 

•11' TO 

WS-: 

IV-EDUC. 
















h 


IF 

CIV-EDUC-MS 

= 

'07' , 

MOVE 

' 1» 

TO 

WS-CIV-EDUC-MS. 

IF 

CIV-EDUC-MS 

= 

'08 ' T 

MOVE 

' 2 ' 

TO 

WS-CIV-EDUC-MS. 

IF 

CIV-EDUC-MS 

= 

'09' , 

MOVE 

'3* 

TO 

WS-CIV-EDUC-MS. 

IF 

C IV-EDJC-MS 

= 

' 10 ' , 

MOVE 

' 4' 

TO 

WS-CIV-EDUC-MS. 

IF 

CIV-EDUC-MS 


'US 

MOVE 

15' 

TO 

WS-CIV-EDUC-MS. 

IF 

CIV-EDUC-MS 


' 12 ' , 

MOVE 

• 6 ’ 

TO 

WS-CIV-EDUC-MS. 

IF 

C IV-EDJC-MS 

= 

'99 S 

MOVE 

'7' 

TO 

WS-CIV-EDUC-MS. 

IF 

CIV-EDUC-MS 

NOT = ' 

07' AND CIV-E 

OUC-MS NOT = '08* 


AND CIV-EOUC-MS MOT - ’09* AMO CIV-EOUC-MS NOT = *10' 
AND CIV-EOUC-MS NOT = '11' AND CIV-EOUC-MS MOT = '12’ 
AND CIV-EDUC-MS MOT = '99', MOVE ' 8 ’ TO WS-CIV-EDUC-MS. 


IF 

WS-CIV-EDUC 

NOT = 

' 01 ' , 

MOVE ' 

9' TO WS-CIV-EDUC 

IF 

COMBAT-SVC = 

'O' , 

MOVE 

• 1 ' 

TO 

WS-COMBAT-SVC. 

IF 

COMBAT-SVC = 

'5' , 

MOVE 

' 2 ' 

TO 

WS-C0M3AT-SVC. 

IF 

COMBAT-SVC = 

'9S 

MOVE 

'3' 

TO 

WS-COMBAT-SVC. 

IF 

COMBAT-SVC = 

' A' , 

MOVE 

'4' 

TO 

WS-COMBAT-SVC. 

IP 

COMBAT-SVC = 

• E' , 

MOVE 

t 5' 

TO 

WS-COMBAT-SVC. 


IF C0M3AT-SVC NOT = 'O' AMO C0M3AT-SVC NOT = '5', 

AND CDMBAT-SVC NOT = '9’, AND COMBAT-SVC NOT = 'A', 
AND COMBAT-SVC NOT = 'E', MOVE ' 6 ’ TO S-COMB AT-SVC. 

IF PRO-PAY = 'O’t MOVE '1' TO WS-PRO-PAY 
ELSE MOVE '2' TO WS-PRO-PAY. 


IF 

ENTRY-CODE = 'A', 

MOVE 

' 1 ' 

TO 

WS-ENTRY-CODE. 

IF 

ENTRY-CODE = 'B', 

MOVE 

* 2* 

TO 

WS-ENTRY-CODE. 

IF 

ENTRY-CODE = 'C't 

MOVE 

'3' 

TO 

WS-FNTRY-CODE. 


IF ENTRY-CODE NOT = 'A* AND ENTRY-CODE NOT = 'B' 

AND ENTRY-CODE MOT = *r* mqvE '4* TO WS-ENTRY-COOE. 


IF COMPONENT = '1', MOVE 'I' TO WS-COMPONENT. 

IF COMPONENT = '2'» MOVE '2' TO WS-COMPONENT. 

IF COMPONENT = 'A', MOVE '3' TO WS-COMPONENT. 

IF COMPONENT = 'B', MOVE '4' TO WS-COMPONENT. 

IF COMPONENT = 'C OR COMPONENT = ’K', 

MOVE '5' TO WS-COMPONENT. 

IF COMPONENT NOT = AND COMPONENT NOT = '2' 

AMD COMPONENT NOT = 'A' AND COMPONENT NOT = 'B' 
AND COMPONENT NOT = 'C AND COMPONENT NOT = 'K' 
MOVE '6' TO WS-COMPOMENT. 

IF DUTY-STATUS = MOVE '01' TO WS-DUTY-STATUS. 

IF DUTY-STATUS = '2'» MOVE '02* TO WS-OUTY-STATUS. 
IF DUTY-STATUS = '3', MOVE '03' TO WS-OUTY-STATUS. 
IF DUTY-STATUS = '4', MOVE '04* TO WS-DUTY-STATUS. 



(J1 


IF 

duty-status 


•5' , 

MOVE 

•05‘ 

TO 

WS-DUTY-STATUS. 

IF 

DUTY-STATUS 

= 

’ 6 ’ , 

MOVE 

•06‘ 

TO 

WS-DUTY-STATUS. 

IF 

DUTY-STATUS 

r: 

' 8 * , 

MOVE 

•07' 

TO 

WS-OUTY-STATUS. 

IF 

DUTY-STATUS 

r= 

•A* , 

MOVE 

•08' 

TO 

WS-DUTY-STATUS . 

IF 

DUTY-STATUS 

= 

' I • , 

MOVE 

t 09* 

TO 

WS-DUTY-STATUS. 

IF 

DUTY-STATUS 

= 

• J' » 

MOVE 

• 10 * 

TO 

WS-OUTY-STATUS. 

IF 

DUTY-STATUS 

=: 

•K* , 

MOVE 

• 11 » 

TO 

WS-DUTY-STATUS. 

IF 

DUTY-STATUS 

= 

•L’ , 

MOVE 

• 12 * 

TO 

WS-OUTY-STATUS . 

IF 

DUTY-STATUS 

= 

•R' , 

MOVE 

• 13* 

TO 

WS-DUTY-STATUS. 

IF 

DUTY-STATUS 

= 

•S' , 

MOVE 

• 14* 

TO 

WS-OUTY-STATUS. 

IF 

DUTY-STATUS 

= 

* W’ , 

MOVE 

t i 5 t 

TO 

WS-OUTY-STATUS. 

IF 

DUTY-STATUS 


' Y’ , 

MOV E 

• 16* 

TO 

WS-DUTY-STATUS. 

IF 

DUTY-STATUS 

NOT = 

•1* AND DUTY- 

STATUS NOT = *2 • » 


AND 

DUTY-STATUS 

NOT = 

* 3* , 

AND 

DUTY-STATUS 

NOT 

= 

•4* 

AND 

DUTY-STATUS 

NOT = 

•5* , 

AND 

DUTY-STATUS 

NOT 

= 

*6 * 

AND 

DUTY-STATUS 

NOT = 

*8* , 

AND 

DUTY-STATUS 

NOT 


• A* 

AND 

DUTY-STATUS 

NOT = 

' I * t 

AND 

DUTY-STATUS 

NOT 


• J* 

AND 

DUTY-STATUS 

NOT = 

* K* , 

AND 

DUTY-STATUS 

NOT 


• L ' 

AND 

DUTY-STATUS 

NOT = 

’R’ t 

AND 

DUTY-STATUS 

NOT 

= 

'S' 

AND 

DUTY-STATUS 

NOT = 

• W* , 

AND 

DUTY-STATUS 

NOT 

S 

•Y’ 

MOVE 

•17* TO WS- 

-DUTY- 

STATUS 

• 






IF 

CITIZ5 

NSHIP = ' 

A* , 

MOVE 

* 1 * 

TO WS-CITIZENSHIP. 

IF 

CITIZENSHIP = • 

B* , 

MOVE 

* 2 ’ 

TO WS-CITIZENSHIP. 

IF 

CITIZENSHIP = • 

N* , 

MOVE 

•3* 

TO WS-CITIZENSHIP. 

IF 

CITIZENSHIP = ' 

R* t 

MOVE 

141 

TO WS-CITIZENSHIP. 

IF 

CITIZE 

NSHIP NOT 

z: t 

A* AND CITIZENSHIP NOT = * 8 * 


AND CITIZENSHIP NOT = • 

N* t 

AND CITIZENSHIP NOT 


MOVE 

151 

TO WS 

-Cl TIZENSHI P. 


IF 

NATION 

- 

' AT • , 

MOVE 

•3 1 * 

TO 

WS-NATION. 

IF 

NATION 


' BL* , 

MOVE 

*02 ' 

TO 

WS-NATION. 

IF 

NATION 

= 

• BM' t 

MOVE 

*33* 

TO 

WS-NATION. 

IF 

NATION 

= 

• BR* , 

HOVE 

*34* 

TO 

WS-NATION. 

IF 

NATION 

= 

' C 6 ' , 

MOVE 

•35* 

TO 

WS-MAT I ON. 

IF 

NATION 


’ CM * , 

MOVE 

*36* 

TO 

WS-NATION. 

IF 

NATION 

= 

• GO* , 

MOVE 

*37’ 

TO 

WS-NATION. 

IF 

NATION 

= 

• IS* , 

MOVE 

*08* 

TO 

WS-NATION. 

IF 

NATION 

= 

' JA* , 

MOVE 

*09 ' 

TO 

WS-NAT ION. 

IF 

NATION 

= 

'KS* , 

MOVE 

• 10 ’ 

TO 

WS-NATION. 

IF 

NATION 

= 

' MK * , 

MOVE 

• 11 * 

TO 

WS-NATION. 

IF 

NATION 


• MX • , 

MOVE 

*12* 

TO 

WS-NATION. 

IF 

NATION 


• PI ' , 

MOVE 

1 1 31 

TO 

WS-NATION. 

IF 

NATION 

= 

• PN* , 

MOVE 

•14’ 

TO 

WS-NATION. 

IF 

NATION 

=: 

• PR* , 

MOVE 

•15* 

TO 

WS-NATION. 

IF 

NATION 

= 

• PZ ' t 

MOVE 

*16’ 

TO 

WS-NATION. 

IF 

NA TI ON 

= 

'SO* t 

MOVE 

* ! 7* 

TO 

WS-NATI ON. 

IF 

NATION 

=r 

' TH* , 

MOVE 

'18* 

TO 

WS-NATION. 










IF 

NATION = 'TW 

MOVE ’19 

• TO WS-NATION. 



IF 

NATION = ’UK 

MOVE '20 

• TO WS-NATION. 



IF 

NATION = 'US 

MOVE '21 

• TO WS-NATION. 



IF 

NATION = ’VS 

MOVE ’22 

' TO WS-NATION. 



IF 

NATION = ‘VU 

MOVE '23 

’ TO WS-NATION. 



IF 

NATION NOT = 

' AT' 

AND NATION NOT = 

= 'BL 

t 



AND 

NATION 

NOT = 

• BM’ 

AND 

NATION 

NOT 

= 

• BR’ 


AND 

NATION 

NOT = 

' CB’ 

AND 

NATION 

NOT 

= 

• CN' 


AND 

NATION 

NOT = 

• GU’ 

AND 

NATION 

NCT 

= 

* IS' 


AND 

NATION 

MOT = 

' JA’ 

AND 

NATION 

NOT 


' KS' 


AND 

NATION 

NOT = 

' MK* 

AND 

NATION 

NOT 


• MX' 


AND 

NAT ION 

NOT = 

’ PI ' 

AND 

NATION 

NOT 


• pNt 


AND 

NATION 

NOT = 

' PR' 

AND 

NATION 

NOT 

= 

’ PZ’ 


AND 

NAT I ON 

NOT = 

• SO* 

AND 

NATION 

NOT 

= 

• TH* 


AND 

NATION 

NOT = 

' TW 

AND 

NATION 

NOT 

= 

’ UK* 


AND 

NATION 

NOT = 

* US' 

AND 

NATION 

NOT 


' VS' 


AND 

NATION 

NOT = 

' VU' T 

MOVE '24* 

TO WS- 

NATION 

IF 

MCC = 

’ 010 ' , 

MOVE 

' 01 ' 

TO 

ws-m:c . 




IF 

MCC = 

• 012 ' T 

MOVE 

• 0 ?' 

TO 

WS-MCC . 




IF 

MCC = 

’013’ , 

MOVE 

' 05' 

TO 

WS-MCC. 




IF 

MCC = 

•014’ T 

MOVE 

•04' 

TO 

WS-MCC . 




IF 

MCC = 

’015' , 

MOVE 

' 05' 

TO 

WS-MCC, 




IF 

MCC = 

'016', 

MOVE 

' 06’ 

TO 

ws-m:c . 




IF 

MCC = 

•017’, 

MOVE 

'07' 

TO 

WS-MCC . 




IF 

MCC = 

• 018’ , 

MOVE 

'08' 

TO 

WS-MCC . 




IF 

MCC = 

' 019' , 

MOVE 

' 09’ 

TO 

WS-MCC . 




IF 

MCC = 

• 022 ' T 

MOVE 

• 10 ' 

TO 

WS-MCC. 




IF 

MCC = 

’023’, 

MOVE 

'll' 

TO 

WS-MCC. 




IF 

MCC = 

• 0 44', 

MOVE 

' 12 * 

TO 

WS-MCC . 




IF 

MCC = 

' 045 • » 

MOVE 

'13* 

TO 

WS-MCC. 




IF 

MCC = 

• 055 ’ , 

MOVE 

' 14* 

TO 

WS-MCC . 




IF 

MCC = 

' 091 ’ , 

MOVE 

'15' 

TO 

WS-MCC . 




IF 

MCC = 

' 092' , 

MOVE 

' 16' 

TO 

WS-MCC. 




IF 

MCC = 

' 1 10 ' , 

MOVE 

• 17* 

TO 

WS-MCC . 




IF 

MCC = 

’ 111 ’, 

MOVE 

’ 18* 

TO 

WS-MCC . 




IF 

MCC = 

• 121 ' , 

MOVE 

• igs 

TO 

WS-MCC , 




IF 

MCC = 

' 122 ' , 

MOVE 

* 20 » 

TO 

WS-MCC. 




IF 

MCC = 

’ 1 24S 

MOVE 

' 21 ' 

TO 

WS-MCC. 




IF 

MCC = 

•130', 

MOVE 

» ? 7* 

TO 

WS-MCC . 




IF 

MCC = 

• 142 ' , 

MOVE 

• 23' 

TO 

WS-MCC . 




IF 

MCC = 

• 143’ , 

MOVE 

' 24* 

TO 

WS-MCC . 




IF 

MCC = 

• 145' , 

MOVE 

•25' 

TO 

WS-MCC. 




IF 

MCC = 

' 147’ , 

MOVE 

' 26' 

TO 

WS-MCC . 




IF 

MCC = 

• 150’ , 

MOVE 

' 27' 

TO 

WS-MCC. 




IF 

MCC = 

'151*, 

MOVE 

• 28' 

TO 

WS-MCC. 




IF 

MCC ^ 

' 16'5’ , 

HOVE 

f 29* 

TO 

WS-MCC . 




IF 

MCC = 

’197 ' , 

MOVE 

• 30' 

TO 

WS-MCC . 










•013' , 


ui 

ttx 


IF 

MCC = 

• 1C2' , 

MOV 

E '31 

' TO WS-MCC 

m 


I F 

MCC NOT = '010' 

AND M 

CC 

NOT = '012' 

AND 


A NO 

MC: NOT 

= * 

014 • 

AND 

MCC NOT 


'015' 


AND 

MCC NOT 

n * 

016' 

AND 

MCC NOT 


'017» 


AND 

MCC NOT 

= t 

018 • 

AND 

MCC NOT 


•019' 


AND 

MCC NOT 

= » 

022 ' 

AND 

MCC NOT 


'023* 


AND 

MCC NOT 


044 ’ 

AND 

MCC NOT 


'045* 


AND 

MCC NOT 

= f 

055' 

AND 

MCC NOT 

= 

•091 ' 


AND 

MCC NOT 


09 2 ' 

AND 

MCC NOT 

=: 

' 110* 


AND 

MCC NOT 


111 • 

AND 

MCC NOT 

=: 

•121' 


AND 

MCC NOT 

= ' 

122 ' 

AND 

MCC NOT 


• 124' 


AND 

MCC NOT 

r: 1 

130* 

AND 

MCC NOT 

= 

' 142' 


AND 

MCC NOT 

=: • 

143 ' 

AND 

MCC NOT 


•145’ 


AND 

MCC NOT 

= 1 

147' 

AND 

MCC NOT 

= 

•150* 


AND 

MCC NOT 

= • 

151 ' 

AND 

MCC NOT 

= 

’ 169' 


AND 

MCC NOT 

=: » 

197' 

AND 

MCC NOT 


• 1C2' 


MOVE 

• 32' TO WS 

-MCC. 





IF 

MOS = 

• 01' T 

MOVE 

*01* 

TO 

WS-MOS. 



IF 

MOS = 

' 02 * , 

MOVE 

'02* 

TO 

WS-MOS, 



IF 

MOS = 

• 03' , 

MOVE 

'03* 

TO 

WS-MOS. 



IF 

MOS = 

• 04' , 

MOVE 

• 04* 

TO 

WS-MOS. 



IF 

MOS = 

' 03* , 

MOVE 

•05' 

TO 

WS-MOS. 



I F 

MOS = 

'll', 

MOVE 

• 06' 

TO 

WS-MOS. 



IF 

MOS = 

•13', 

MOVE 

'07' 

TO 

WS-MOS, 



IF 

MOS = 

• 14' , 

MOVE 

'08' 

TO 

WS-MOS . 



IF 

MOS = 

' 15' , 

MOVE 

•09' 

TO 

WS-MOS. 



IF 

MOS = 

•18’, 

MOVE 

' 10' 

TO 

WS-MOS. 



IF 

MOS = 

'21' , 

MOVE 

'll' 

TO 

WS-MOS. 



IF 

MOS = 

'23', 

MOVE 

• 12' 

TO 

WS-MOS , 



IF 

MOS = 

' 25' , 

MOVE 

'13' 

TO 

WS-MOS. 



IF 

MOS = 

' 26' , 

MOVE 

'14' 

TO 

WS-MOS. 



IF 

MOS = 

' 28' , 

MOVE 

’ 15' 

TO 

WS-MOS. 



IF 

MOS = 

• 30' , 

MOVE 

' 16' 

TO 

WS-MOS. 



IF 

MOS = 

•31', 

MOVE 

• 17' 

TO 

WS-MOS. 



IF 

MOS = 

•32' , 

MOVE 

'18' 

TO 

WS-MOS. 



IF 

MOS = 

' 33 » , 

MOVE 

• 19* 

TO 

WS-MOS . 



IF 

MOS = 

' 34' , 

MOVE 

' 20' 

TO 

WS-MOS. 



IF 

MOS = 

• 35' , 

MOVE 

•21' 

TO 

WS-MOS. 



I F 

MOS = 

•40' , 

MOVE 

• 22' 

TO 

WS-MOS. 



IF 

MOS = 

'41 ' , 

MOVE 

' 23' 

TO 

WS-MOS. 



IF 

MOS = 

' 43' , 

MOVE 

'24* 

TO 

WS-MOS. 



IF 

MOS = 

'44' , 

MOVE 

' 25 ’ 

TO 

WS-MOS. 



IF 

MOS = 

• 46' , 

MOVE 

’ 26» 

TO 

WS-MOS. 



IF 

MOS = 

' 49' , 

MOVE 

• 27* 

TO 

WS-MOS. 



IF 

MOS = 

' 55' , 

MOVE 

'28' 

TO 

WS-MOS. 



IF 

MOS = 

•57' , 

MOVE 

'29* 

TO 

WS-MOS. 




MCC NOT = 


» 










IF 

MOS 

= 

•58' 

t 

MOVE 

• 30' 

TO 

WS-MOS. 

IF 

MOS 

= 

•59' 


MOVE 

• 311 

TO 

WS-MOS. 

IF 

MOS 

= 

•60' 

f 

MOVE 

•32* 

TO 

WS-MOS. 

IF 

MOS 


•61' 

J 

MOVE 

• 33* 

TO 

WS-MOS. 

IF 

MOS 


• 65 • 

t 

MOVE 

1 341 

TO 

WS-MOS. 

IF 

MGS 

= 

•65' 


MOVE 

1351 

TO 

WS-MOS. 

I F 

MOS 

= • 

• 68 « 

t 

MOVE 

•36’ 

TO 

WS-MOS. 

IF 

MOS 

= 

•70' 

> 

MOVE 

'37' 

TO 

WS-MOS. 

IF 

MOS 


• 711 

T 

MOVE 

• 38' 

TO 

WS-MOS. 

IF 

MOS 

=: 

'72* 

» 

MOVE 

' 39* 

TO 

WS-MOS. 

IF 

MOS 

= 

.'73* 

f 

MOVE 

• 40’ 

TO 

WS-MOS. 

IF 

MOS 

H3 

T = 


01* ANO MOS 

NOT = '02' 


AND 

MOS 

NOT 


• 03 * 

AND 

MOS 

NOT 

= 

' 04» 

AND 

MOS 

NOT 


• 03' 

AND 

MOS 

NOT 

z: 

• 11 • 

AND 

MOS 

NOT 


' 13 » 

AND 

MOS 

NOT 

= 

1 141 

AND 

MOS 

NOT 

= 

• 15' 

AND 

MOS 

NOT 

=: 

• 18' 

AND 

MOS 

NOT 


' 2 i ' 

AMD 

MOS 

NOT 

=: 

1731 

AND 

MOS 

NOT 

=: 

•26' 

AND 

MOS 

NOT 

= 

• 28' 

AND 

MOS 

NOT 


•30' 

AND 

MOS 

NOT 


• 31 ' 

AND 

MOS 

NOT 

=: 

* 5? • 

AND 

MOS 

NOT 

= 

• 331 

AND 

MOS 

NOT 


• 34 • 

AND 

MOS 

NOT 


' 35' 

AND 

MOS 

NOT 

= 

•40' 

AND 

MOS 

NOT 

- 

• 41 ' 

AND 

MOS 

NOT 

= 

1 43 1 

AMD 

MOS 

NOT 

= 

• 44’ 

AND 

MOS 

NOT 

= 

•46' 

AND 

MOS 

NOT 

= 

* 491 

AND 

MOS ' 

NOT 

= 

• 55' 

AND 

MOS 

NOT 

= 

• 57' 

AND 

MOS 

NOT 


• 53' 

AND 

MOS 

NOT 

= 

• 591 

AND 

MOS 

NOT 


'50' 

AND 

MOS 

NOT 

= 

' 61’ 

AND 

MOS 

NOT 

= 

' 65' 

AND 

MOS 

NOT 

=r 

' 66 ' 

AND 

MOS 

NOT 

= 

• 68 ' 

AND 

.MOS 

NOT 

= 

’ 70' 

AND 

MOS 

NOT 

r: 

'711 

AND 

MOS 

NOT 


1771 

AND 

MOS 

NOT 

= 

•73' 

1 MOVE • 

41 • 

TO 

WS-MOS 


IF M0S-3ASIC = '00', MOVE 'I* TO WS-MOS-BASIC 
ELSE MOVE '2' TO WS-MOS-BASIC. 

MOVE MQS TO WS-PMOSl. 

MOVE MGS-RASIC TO WS-PM0S2. 

MOVE BILLET-MOS TO WS-BILLET-MOS. 

IF WS-PMGS = WS-BILLET-MOS, MOVE 1 TO WS-ASG-CODE. 
MOVE ZEROS TO WS-PMOS. 

MOVE ZEROS TO WS-BILLET-MOS. 

MOVE RANK TO WS-RANK, 

MOVE DATE-OF-RANK TO WS-DATE-OF-RANK. 

MOVE LEM-ENL TO WS-LEN-ENL. 

MOVE DATE-3F-BIRTH TO WS-DATE-OF-BIRTH. 

MOVE DATE-CTB TO WS-DATE-CTB. 










MOVE ACDJ-BD TO WS-ACDU-BD. 

MOVE GCT TO WS-GCT. 

MOVE AFQT TO WS-AFOT. 

GO TO DATE-CALCULATE. 

DATE-CALCULATF. 

MULTIPLY WS-YEAR BY 365 GIVING WS-CENTURY-DATE. 

ADO WS-MO (WS-MONTH) TO WS-CENTURY-DATE. 

ADD WS-DAY TO WS-CENTURY-DATE. 

IF WS-:ENTURY-DATE < 270il OR WS-CENTURY-DATE > 27375, 

ADO 1 TO EXCLUSION-CTR, GO TO MASS-MOVE, 

MULTIPLY WS-YEAR BY 12 GIVING WS-CENTURY-MONTH. 

ADD WS-MO^JTH TO WS-CENTURY-MONTH. 

MULTIPLY DOR-YEAR BY 12 GIVING TIG-1. 

ADD DOR-MO TO TIG-1. 

SUBTRACT TIG-1 FROM WS-CENTURY-MONTH GIVING WS-TI ME-IN-GRADE. 
IF WS-TIME-IN-GRAOE > '072', MOVE •99* TO WS-TI ME-IN-GRADE, 

SUBTRACT DOB-YEAR FROM WS-YEAR GIVING WS-AGE. 

IF WS-AGE > ’40', MOVE '99' TO WS-AGE. 

MULTIPLY CT6-YEAR BY 12 GIVING TOS-1. 

ADD CT8-M0 TO TOS-1 . 

SUBTRACT TOS-1 FROM WS-CcNTURY-MONTH GIVING 
WS-TIME-ON-STATION. 

IF WS-TIME-ON-STATION > *072', 

MOVE '99' TO WS-TIME-ON-STATION, 

MULTIPLY ACDU-YEAR BY 12 GIVING TIS-1. 

ADD ACOU-MO TO TIS-1. 

SUBTRACT TIS-1 FROM WS-CENTURY-MONTH GIVING 
WS-TIME-IN-SERVICE. 

IF WS-TIME-IN-SERVICE > '096', 

MOVE '99' TO WS-TIME-IN-SERVICE. 

GO TO WRAP-UP. 

WRAP-UP. 

WRITE DISK-REC FROM WS-PERS-FILE. 

COMPUTE COUNTER = COUNTER + 1. 

GO TO MASS-MOVE. 


FINISH 
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APPENDIX C 


SSANSORT PROGRAM 


// EXEC PGM=IERRC000,REGI0N=2D0K,PARM='CORE=150000' 

//SCRTLIB DO DSN=SYS1.SORTLIB,DISP=SHR 
//SORTPR DD SYSOUT=A,SPACE=(TRK,(5,0) ) 

//SORTWKOl DD UN IT = SYSDA,SPACE=(TRK,(250),,CONTIG),VOL=SER=SPOOL 1 
//SnRTWK02 DD UN IT = SYSDA,SdACE = (TRK,( 250) ,,C0 NT IG) ,VDL=SER=SP00L2 
//SQRTWK03 DD UN IT = SYSDA,SPACE = (TRK,(250) ,,CONTI 6 ),VDL = SER=SP0DL3 
//SORTWKOA DO UN I T=,S Y SD A , S PAC E - ( T RK , ( 2 50 ) , , C 0 NT I G ) , VO L = S ER= S POOL 1 
//S0RTWK05 DO UNIT=SYSDA,SPACE=(TRK,(250),,CQNTIG),VOL=SER=SPOOL2 
//S0RTWK06 DD UNIT=SYSO A,SPACE=(TPK,( 250),,C0 NT IG),VOL = SER^SP00L3 
//S0RTWK07 DO UNIT = SYS0A,SPACE = {T?,K,{ 250),,:0NTIG),V0L = StP = SPOGLl 
//S0RTWK08 DD UN IT-SYSDA,SPACE=(TRK,( 250),,C0NT IG),VDL = S5R^SPOQL2 
//S0RTWK09 DD UN IT = SYSDA,SPACG= ( TRK, ( 250) ,,CONTIG),VOL=SER=SPOOL 3 
//SORTIN DD DISP=(OLD,KEEP),UNIT=34O0-4,V0L=SER=MP3253, 

// OCe = ( RECFM = FB,BLKSIZE = 2400,LRECL=80,DEN = 2), 

// 0S^'AME= AP71 .Cl 790. STD P7406 , L A8 E L = ( ,$L) 

// DD DISP=(3LD,KEEP),UNIT=AFF=SORTIN, 

// V0L=SER=NPS310,DSNAME=AP?l.Ci/90.STATCY74, 

// DC8=(RECFM=FP,BLKSIZE=2400,LRECL=60,DEN=2),LABEL=(,SL) 

//SORTOUT DD DISP=(NEW,KEEP),UN IT=AFF = SORTIN,V0L = SER = NPS313, 

// OCB = (RECFM = FB,8LKSIZE = 2400,LkECL = 80,DEN=2 ) , 

// DSNAME=S0RTE0.AP71.C1790.STAT:Y74 

//SYSIN OD ^ 

SORT FIELDS=(22,10,BI,A,14,5,3I,A,7,1,BI,A),SIZE=E52000 



APPENDIX D 


ABSENTEE PROGRAM 


ui 

V£> 


IDENTIFICATION 

PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

REMARKS. 


DIVISION. V 

ABSENTEE. 

D J JENKINS, CAPT, USMC. 

NAVAL POSTGRADUATE SCHOOL, MONTEREY, CALIF. 
APRIL 1975. 

APRIL 1975. 

UNCLASSIFIED. 

PROGRAM # 4 OF 4 CONCERNING UNAUTHORIZED 
ABSENCE IN THE US MARINE CORPS. 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. I8M-360-67. 

OBJECT-COMPUTER. IBM-360-67. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT PERS-REC ASSIGN TO UT-S-TAPEIN. 
SELECT MASTER-LIST ASSIGN TO UT-S-TAPEOUT. 

DATA DIVISION. 

FILE SECTION. 

FD PERS-REC 

' RECORD CONTAINS 80 CHARACTERS 
BLOCK CONTAINS 30 RECORDS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS PERS-FILE. 

01 PERS-FILE. 


02 

FILLER 

PIC 

X(6) . 

02 

TCC 

PIC 

X. 

02 

DATE 

PIC 

9(6) . 

02 

CENTURY-DATE 

PIC 

9(5) . 

02 

CENTURY-MONTH 

PIC 

9(3) . 

02 

SSAN 

PIC 

9(10) 

02 

RACE 

PIC 

X. 

02 

SEX 

PIC 

X. 

02 

RANK 

PIC 

X. 

02 

TIME-IN-GRAOE 

PIC 

999. 

02 

SP-RANK-CODE 

PIC 

X. 

02 

ENTRY-CODE 

PIC 

X. 

02 

AGE 

PIC 

99. 

02 

COiMPONENT 

PIC 

X. 

02 

CITIZENSHIP 

PIC 

X. 

02 

NATIONALITY 

P IC 

XX. 



02 

TIME-ON-STATION 

PIC 

999. 

02 

TIME-IN-SERVICE 

PIC 

999. 

02 

MOS 

PIC 

XX. 

02 

M0S-3ASIC 

PIC 

X. 

02 

ASG-CUOE 

PIC 

X. 

02 

PRO-PA/ 

PIC 

X. 

02 

NO-DEPS 

P IC 

XX. 

02 

CIV-EDJC 

PIC 

XX. 

02 

CIV-EDUC-MS 

Die 

X. 

02 

COMBAT-SVC 

PIC 

X. 

02 

PAP-CODE 

PIC 

XX. 

02 

DUTY-STATUS 

PIC 

XX. 

02 

STPENSTH-CAT 

PIC 

XX. 

02 

DU-L IM 

PIC 

X. 

02 

GCT 

PIC 

9(3) 

02 

AFQT 

PIC 

XX. 

02 

HOR-STATE 

PIC 

XX. 

02 

MCC 

P IC 

XX. 

02 

LEN-ENL 

PIC 

X. 

02 

FILLER 

PIC 

X. 


O FD MASTER-LIST 

RECORD CONTAINS 80 CHARACTERS 
BLOCK CONTAINS 30 RECORDS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS MASTER-R'EC. 


01 

MASTER-REC 

PIC 

X(80) 

• 


WORKING-STORAGE SECTION. 





77 

COUNTER 

PIC 

9(6) , 

VALUE 

ZEROS. 

77 

TOTAL-NO-UAS 

PIC 

9(6) , 

VALUE 

ZEROS. 

77 

UA-CTR 

PIC 

9(6) , 

VALUE 

ZEROS. 

77 

ERROR-l-CTR 

PIC 

9(5) , 

VALUE 

ZEROS. 

77 

ERR0R-2-CTR 

PIC 

9(4) , 

VALUE 

ZEROS. 

77 

ERROR-3'CTR 

PIC 

9(4), 

VALUE 

ZEROS. 

77 

ERR0R-4-CTR 

PIC 

9(5) , 

VALUE 

ZEROS. 

77 

ERR0R-5-CTR 

PiC 

9(4) , 

VALUE 

ZEROS. 

77 

DUPE-REC 

PIC 

9(5) , 

VALUE 

ZEROS. 

77 

EXCUSED-ABS-l-CTR 

PIC 

9(4), 

VALUE 

ZEROS. 

77 

EXCUSED-ABS-2-CTR 

P IC 

9(4), 

VALUE 

ZEROS. 

77 

TIME-ABSENT 

PIC 

9(3) , 

VALUE 

ZEROS. 

77 

EOJ 

PIC 

9, VALUE ZERO. 

77 

TGT-DAYS-UA 

PIC 

9(3) , 

VALUE 

ZEROS. 

77 

USMC-DAYS-LOST 

PIC 

9(3) , 

VALUE 

ZEROS. 

77 

USMC-AVG-LEN-UA 

P IC 

9(3), 

VALUE 

ZEROS. 

01 

LENABS. 






02 LEN-ABS-3 

P IC 

999. 





02 

LEN-ABS-4 

PIC 

999. 

02 

LEN-A8S-5 

P IC 

999. 

02 

LEN-ABS-6 

PIC 

999. 

02 

LEN-ABS-7 

PIC 

999. 

02 

LEN-ABS-8 

P IC 

999. 

02 

LEM-ABS-9 

PIC 

999. 

02 

LEN-ABS-10 

PIC 

999. 

WS- 

1 . 



02 

WS-l-TCC 

PIC 

X. 

02 

WS-i-CENTURY-OATE 

PIC 

9(5) . 

02 

WS-l-SSAM 

PIC 

X(10) 

WS- 

2 . 



02 

WS-2-TCC 

PIC 

X. 

02 

WS-2-CENTURY-DATE 

P IC 

9(5). 

02 

WS-2-SSAN 

PIC 

X(10) 

OUT 

-REC. 



02 

TOTAL-ABS 

PIC 

99. 

02 

UACTR 

PIC 

99. 

02 

X-DESERTED 

PIC 

9. 

02 

MCC 

PIC 

XX. 

02 

RACE 

PIC 

X. 

02 

CITIZEMSHIP 

PIC 

X . 

02 

NATIONALITY 

PJC 

XX. 

02 

SEX 

PIC 

X. 

02 

AGE 

PIC 

99. 

02 

RANK 

PIC 

X. 

02 

TIME-IN-GRADE 

PIC 

999. 

02 

TIME-IN-SERVICE 

PIC 

999. 

02 

TIME-DN-STATION 

PIC 

999. 

02 

MOS 

P IC 

XX. 

02 

MOS-BASIC 

PIC 

X. 

02 

ASG-CODE 

PIC 

X. 

02 

CIV-EOUC 

PIC 

XX. 

02 

CIV-EDUC-MS 

PIC 

X. 

02 

GCT 

P IC 

9(3). 

02 

AFQT 

PIC 

XX. 

02 

HOR-STATE 

P IC 

XX. 

02 

S P-RANK-CQOE 

PIC 

X . 

02 

ENTRY-CODE 

PIC 

X. 

02 

COMBAT-SVC 

PIC 

X. 

02 

PAP-CODE 

P IC 

XX. 

02 

DUTY-STATUS 

PIC 

XX. 

02 

ST? ENGTH-CAT 

PIC 

XX. 

02 

DU-L IM 

PIC 

X. 

02 

PRO-PAY 

PIC 

X. 




02 

NO-DEPS 

P IC 

XX. 

02 

COMPONENT 

PIC 

X. 

02 

LEN-ENL 

PIC 

X. 

02 

LEN-ABS-1 

PIC 

999 . 

02 

LEN-ABS-2 

PIC 

999. 

02 

LOST-TIME 

PIC 

9(3). 

02 

AVG-TIME-UA 

PIC 

9(3) . 

02 

SSAN-OR 

PIC 

X{ 10) 

02 

F ILLER 

PIC 

X ( 5 ) . 


PROCEDURE DIVISION. 

OPEN-FILES. 

OPEN INPUT PERS-REC, OUTPUT MASTER-LIST. 

NEW-RECORD. 

READ PERS-REC AT END GO TO FINISH. 

GO TO START-1. 

START-1. 

IF TCC = •!• OR TCC = '4' 60 TO START-Ul. 

IF TCC = 'A' GO TO START-UA. 

GO TO NEW-RECORO. 

START-Ul. 

MOVE ZEROS TO WS-2. 

MOVE ZEROS TO OUT-REC. 

MOVE CORR PERS-FILE TO OUT-REC. 

MOVE SSAN TO SSAN-OR. 

MOVE TCC TO WS-2-TCC. 

MOVE CENTURY-DATE TO WS-2-CENTURY-DATE . 

MOVE SSAN TO WS-2-SSAN. 

. IF TCC = *4», GO TO DESERTER. 

GO TO READ-1. 

READ-l . 

READ PERS-REC AT END GO TO WRAP-UP. 

IF SSAM NOT = WS-2-SSAN, GO TO UPOATE-WRITE-1. 

IF TCC = WS-2-TCC AND CENTURY-DATE = WS-2-CENTURY-DATE 
ADD 1 TO DUPE-REC, GO TO READ-1. 

IF TCC = '4', GO TO DESERTER. 

IF TCC = '5» OR TCC = ’8* 

MOVE ZEROS TO WS-1, 

MOVE TCC TO WS-l-TCC, 

MOVE CENTURY-DATE TO WS-1-CENTURY-DATE, 

GO TO READ-3. 

IF TCC = '7* OR TCC = '9', GO TO EXCUSED-AoS-1. 

IF TCC = '1* OR TCC = ‘A*, GO TO ERROR-1. 



<T\ 

W 


READ-3. 

READ PERS-REC AT END GO TO WRAP-UP. 

IF SSAN NOT = WS-2-SSAN, GO TO UPDATE-WRITE-3. 

IF TCC = WS-2-TCC AND CENTURY-DATE = WS-2-CENTURY-OATE 


ADD 1 TO DUPE-REC, GO TO READ-3. 

IF TCC = WS-l-TCC AND CENTURY-DATE = WS-l-CENTURY-DATE 

Am 1 rn nii 3 c_DC’~ rn DCAn_T 




ADD 1 

TO 

OUPF-REC, 

: GD 

TO 

READ 

-3. 

I 

F 

TCC = 

• 7 • 

OR 

TCC = 

•9* , 

r GO 

TO 

EXCUSEO-ABS-1. 

I 

F 

TCC = 

' 1 ' 

OR 

TCC = 

' A' 

OR 

TCC 

= 'A* , GO TO UPDATE-l. 

I 

F 

TCC = 

•5* 

OR 

TCC = 

• 8* , 

, GO 

TO 

ERROR-3. 


DESERTER . 

ADD 1 TO X-DESERTED. 

GO TO REAO-4. 

START-UA. 

MOVE ZEROS TO OUT-REC. 

MOVE ZEROS TO WS-2. 

■MOVE CORR PERS-FILE TO OUT-REC. 

MOVE SSAN TO SSAN-OR. 

MOVE TCC TO WS-2-TCC. 

MOVE CENTURY-DATE TO WS-2-CENTURY-DATE . 

HOVE SSAN TO WS-2-SSAN. 

GO TO READ-2. 

READ-2. 

READ PERS-REC AT END GO TO WRAP-A. 

IF SSAN NOT = WS-2-SSAN, GO TO UPDATE-WRITE-2. 

IF TCC = WS-2-TCC AND CENTURY-DATE = WS-2-CENTURY-DATE, 
ADD 1 TO OUPE-RECt GO TO READ-2. 


I F 

TCC = '9' 

OR 

TCC = ' 

• 7* t GO TO 

EXCUSED-ABS-2. 

IF 

TCC = •1 • 

OR 

TCC = 

• A* OR TCC 

= '4* , GO TO UPDATE-2. 

IF 

TCC = '5* 

OR 

TCC = 

• 8 ', GO TO 

ERRCR-2. 


READ-4. 

READ PERS-REC AT END GO TO WRAP-JP. 

IF SSAN NOT = WS-2-SSAN GO TO UPDATE-WRITE-1. 

IF TCC = WS-2-TCC AND CErNTURY-DATE = W S-2-C ENTURY-D ATE 
ADD 1 TO DUPE-REC, GO TO READ-4. 

IF TCC = '8* OR TCC = »5' , 

MOVE ZEROS TO WS-1, 

MOVE TCC TO WS-l-TCC, 

MOVE CENTURY-DATE TO WS-1-CENTURY-DATE, 

GO TD READ-5. 

IF TCC = '7' OR TCC = '9* OR TCC = OR TCC = '4' 

OR TCC = 'A', GO TO ERROR-4. 


READ-5 



READ PERS-REC AT END GO TO WRAP-JP. 

IF SSAN NOT = WS-P.-SSAN GO TO U PD A T E-W RI TE-3 . 

IF TCC = WS-2-TCC AND CENTURY-DATE = WS-P-CENTURY-OATE, 

ADD 1 TO DUPE-REC, GO TO READ-5. 

IF TCC = WS-l-TCC AND CENTURY-DATE = WS-l-CENTURY-DATE♦ 

ADD 1 TO DUPE-REC, GO TO READ-5. 

IF TCC = 'A' OR TCC = U’ OR TCC = ‘4* GO TO UPDATE-1. 

IF TCC = '5' OR TCC = OR TCC = »8' OR TCC = '9' 

GO TO ERROR-5. 

UPDATE-WRITE-l . 

ADO 1 TO COUNTER. 

ADD 1 TO TOTAL-ABS. 

ADD TOTAL-ABS TO TOTAL-NO-UAS . 

SUBTRACT WS-2-CEMTJRY-DATE FROM 27375 GIVING TIME-ABSENT. 

IF TIME-ABSENT = ZEROS, MOVE 1 TO TIME-ABSENT. 

IF TOTAL-ABS > 10, GO TO WRITE-REC. 

GO TO LENGTH-ABS-1, LENGTH-A3S-2, LENGTH-A3S-3, LENGTH-A8S-4, 
LENGTH-ABS-5, LENGTH-ABS-6 , LENGTH-ABS-7, LENGTH-ABS-8, 
LENGTH-ABS-9, LENGTH-AES-10, DEPENDING ON TOTAL-ABS. 

UPOATE-WRITE-2. 

ADD 1 TO UA-CTR, ADD 1 TO UACTR. 

ADD 1 TO COUNTER. 

ADD 1 TO TOTAL-ABS. 

ADD TOTAL-ABS TO TOTAL-NO-UAS . 

MOVE 1 TO TIME-ABSENT. 

IF TOTAL-ABS > 10, GO TO WRITE-REC. 

GO TO LENGTH-A3S-1, LENGTH-ABS-2, LENGTH-ABS-3, LENGTH-A8S-4, 
LENGTH-ABS-5, LENGTH-ABS-6, LENGTH-ABS-7, LENGTH-A3S-8, 
LENGTH-ABS-9, LENGTH-ABS-10, DEPENDING ON TOTAL-ABS. 

UPDATE-WRITE-3. 

ADD 1 TO COUNTER. 

ADD 1 TO TOTAL-ABS. 

ADD TOTAL-ABS TO TOTAL-NO-UAS. 

SUBTRACT WS-2-CENTURY-DATE FROM WS- 1-CENTURY-DATE 
GIVING TIME-ABSENT. 

IF TIME-ABSENT = ZEROS, MOVE 1 TO TIME-ABSENT. 

MOVE ZEROS TO WS-1. 

IF TOTAL-ABS > 10, GO TO WRITE-REC. 

GO TO LEN3TH-ABS-1, LENGTH-ABS-2, LENGTH-A3S-3, LENGTH-A8S-4 , 
LENGTH-ABS-5, LENGTH-ABS-6, LENGTH-A6S-7, LENGTH-ABS-8, 
LENGTH-ABS-9, LENGTH-ABS-10, DEPENDING ON TOTAL-ABS. 

ERROR-1. 

ADD 1 TO ERROR-l-CTR. 

ADD 1 TO TOTAL-ABS. 



MOVE 1 TO TIME-ABSENT. 

MOVE ZEROS TO WS-2. 

MOVE TCC TO WS-2-TCC. 

MOVE CENTURY-DATE TO WS-2-CENTURY-DATE. 

MOVE SSAN TO WS-2-SSAN. 

IF TOTAL-ABS > 10 AND TCC = 30 TO READ-1. 

IF TOTAL-ABS > 10 AND TCC = 'A», GO TO READ-2. 

GO TO LEM3TH-ABS-At LENGTH-ABS-B, LENGTH-ABS-Ct LENGTH-ABS-0, 
LFNGTH-A8 S-E, LENGTH-ABS-F, LENGTH-ABS-G» LENGTH-ABS-H, 
LENGTH-ABS-1 » LEMGTH-A8S-J DEPENDING ON TOTAL-ABS. 

ERROR-Z. 

ADD 1 TO ERR0R-2-CTR. 

GO TO REAO-2. 

ERROR-3. 

ADD 1 TO ERR0R-3-CTR. 

GO TO REAO-3. 

ERROR-4. 

ADD 1 TO ERR0R-4-CTR. 

GO TO READ-4. 

ERROR-5. 

ADO 1 TO ERR0R-5-CTR. 

GO TO READ-5. 

EXCUSE0-A8S-1. 

MOVE ZEROS TO WS-1. 

ADD 1 TO EXCUSEO-ABS-l-CTR. 

IF TOTAL-ABS = 0, GO TO NEW-RECORD ELSE GO TO READ-1. 

EXCUSED-ABS-2. 

ADD I TO EXCUSED-ABS-2-CTR. 

IF TOTAL-ABS = 0 GO TO NEW-RECORD ELSE GO TO READ-2. 

UPDATE-1. 

ADD 1 TO TOTAL-ABS. 

SUBTRACT WS-2-CENTURY-0ATE FROM WS-1-CENTURY-DATE 
GIVING TIME-ABSENT. 

IF TIME-ABSENT = ZEROS, MOVE 1 TO TIME-ABSENT. 

MOVE ZEROS TO HS-1. 

MOVE ZEROS TO WS-2. 

MOVE TCC TO WS-2-TCC. 

MOVE SSAN TO WS-2-SSAN. 

MOVE CENTURY-DATE TO WS-2-CENTURY-0ATE. 

IF TOTAL-ABS > 10 AND TCC = '!•, GO TO READ-1. 

IF TOTAL-ABS > 10 AND TCC = 'A', GO TO READ-2. 



IF T0TAL-A8S > 10 AND TCC = *4’, GO TO DESERTER. 

GO TO LENGTH-A8S-A, LENGTH-ABS-B, LENGTH-A3S-C, LENGTH-A3S-0» 
LENGTH-ABS-E, LEMGTH-ABS-F, LEMGTH-ABS-G, LENGTH-ABS-H, 
LE'^GTH-ABS-I , LENGTH-ABS-J DEPENDING ON TOTAL-ABS. 

UPDATE-2, 

ADD 1 TO UA-CTR, ADD 1 TO UACTR. 

ADO 1 TO TOTAL-ABS. 

MOVE 1 TO TIME-ABSENT. 

MOVE ZEROS TO WS-2. 

MOVE TCC TO WS-2-TCC. 

MOVE SSAM TO WS-2-SSAN. 

MOVE CENTURY-DATE TO i-.'S-2-CENTURY-DATE . 

IF TOTAL-ABS > 10 AND TCC = '1', GO TO READ-1. 

IF TOTAL-ABS > 10 AND TCC = 'A', GO TO READ-2. 

IF TOTAL-ABS > 10 AND TCC = '4’, GO TO DESERTER. 

GO TO LENGTH-ABS-A, LENGTH-ABS-B, LENGTH-A3S-C, LENGTH-ABS-D, 
LENGTH-ABS-E, LENGTH-ABS-F, LENGTH-ABS-G, LENGTH-ABS-H, 
LENGTH-ABS-I, LENGTH-ABS-J DEPENDING ON TOTAL-ABS. 

<TN LENGTH-ABS-I. 

MOVE TIME-ABSENT TO LEN-ABS-1. 

MOVE TIME-ABSENT TO AV6-TIME-UA. 

ADO TIME-ABSENT TO USMC-DAYS-LOST. 

MOVE TIME-ABSENT TO LOST-TIME. 

WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENA3S, 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-A8S-2, 

MOVE TIME-ABSENT TO LEN-ABS-2. 

ADD LEN-ABS-1 LEN-ABS-2' GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADD TOT-DAYS-UA TO USMC-DAYS-LOST. 

DIVIDE 2 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED. 

WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-ABS-3. 

MOVE TIME-ABSENT TO LEN-ABS-3. 

ADO LEN-ABS-1 LEN-ABS-2 LEN-ABS-3 GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADO TOT-DAYS-UA TO USMC-DAYS-LOST. 

DIVIDE 3 INTO TOT-DAYS-UA GIVING AVG-TlME-UA ROUNDED. 

WRITE MASTER-REC FROM OUT-REC. 



MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-ABS-4. 

MOVE TIME-ABSENT TO LEM-ABS-4. 

ADD LEN-ABS-1 LEN-ABS-2 LEN-ABS-B LEN-ABS-4 
GIVING TOT-DAYS-OA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADD TOT-DAYS-UA TO USMC-DAYS-LOST. 

DIVIDE 4 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED. 
WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1 . 

LENGTH-ABS-5. 

MOVE TIME-ABSENT TO LEN-ABS-5. 

ADO LEN-ABS-1 LEN-ABS-2 LEN-ABS-3 LEN-ABS-4 LEN-ABS-5 
GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADD TOT-DAYS-UA TO USMC-DAYS-LOST, 

DIVIDE 5 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED. 
WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-A3S-6. 

MOVE TIME-ABSENT TO LEN-A3S-6. 

ADD LEN-A3S-1 LEN-ABS-2 LEN-ABS-3 LEN-ABS-4 LEN-ABS-5 
LEN-ABS-6 GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADD TOT-DAYS-UA TO USMC-DAYS-LOST. 

DIVIDE 6 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED. 
WRITE MASTER-REC FROM OUT-PEC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-ABS-7. 

MOVE TIME-ABSENT TO LEN-ABS-7. 

ADD LEN-ABS-1 LEN-ABS-Z LEN-ABS-3 LEN-ABS-4 LEN-ABS-5 
LEN-A8S-6 LEN-ABS-7 GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADD TOT-DAYS-UA TO USMC-DAYS-LOST. 

DIVIDE 7 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED. 
WRITE MASTER-REC FROM OUT-REC. 




MOVE ZEROS TO LENA3S. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-ABS-8. 

MOVE TIME-ABSENT TO LEN-ABS-8. 

ADD LEM-ABS-1 LEN-ABS-2 LEN-ABS-3 LEN-ABS-4 LEN-ABS-5 

LFN-ABS-6 LEN-ABS-7 LEN-A8S-8 GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADD TCT-DAyS-UA TO USMC-DAYS-LOST. 

DIVIDE 8 INTO TOT-DAYS-UA GIVING AVG-TIME-JA ROUNDED. 
WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH, 

GO TO START-1, 

LENGTH-ABS-9. 

MOVE TIME-ABSENT TO LEN-ABS-9. 

ADD LEN-ABS-1 LEN-ABS-2 LEN-ABS-B LEN-ABS-4 LEN-ABS-5 

LEN-A3S-6 LEN-ABS-7 LEN-ABS-S LEN-A3S-9 

GIVING TOT-DAYS-UA. 

<3^ MOVE TOT-DAYS-UA TO LOST-TIME. 

“ ADD TOT-DAYS-UA TO USMC-DAYS-LOST. 

I DIVIDE 9 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED, 
WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-A3S-10. 

MOVE TIME-ABSENT TO LEN-ABS-10. 

ADD LEN-ABS-l LEN-ABS-2 LEN-ABS-3 LEN-ABS-4 LEN-ABS-5 
LEN-ABS-6 LEN-ABS-7 LEN-ABS-8 LEN-ABS-9 LEN-ABS-10 
GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME, 

ADD TOT-DAYS-UA TO USMC-DAYS-LOST. 

DIVIDE 13 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED. 
WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

LENGTH-ABS-A. 

MOVE TIME-ABSENT TO LEN-ABS-1. 

IF TCC = 'IS GO TO REAO-l , 

IF TCC = ’A', GO TO READ-2- 

IF TCC = '4S GO TO DESERTER. 



LENGTH-ABS-B 


MOVE TIME 

-ABSENT 

TO 

LEN-ABS-2. 

I F 

TCC = 

• 1 * , 

GO 

TO 

READ-1. 

IF 

TCC = 

• A' , 

GO 

TO 

READ-2. 

IF 

TCC = 

•4't 

GO 

TO 

DE SERTER. 


LENGTH-ABS-C. 

MOVE TIME-ABSENT TO LEN-ABS-3. 
I F TCC = • 1', GO TO READ-1. 

IF TCC = A' , GO TO READ-2. 

IF TCC = ’4', GO TO DESERTER. 

LENGTH-ABS-D. 

MOVE TIME-ABSENT TO LEN-ABS-4. 
IF TCC = •1•, GO TO READ-1. 

IF TCC = 'A', GO TO READ-2. 

IF TCC = *4', GO TO DESERTER. 

LENGTH-ABS-E. 

MOVE TIME-ABSENT TO LEN-ABS-5. 


IF 

TCC 

= '1'* 

GO 

TO 

READ-1. 

IF 

TCC 

= ’ A* , 

GO 

TO 

READ-2. 

IF 

TCC 

= '4't 

GO 

TO 

DE SERTER. 

LENGTH-ABS-F. 

MOVE, TIME-ABSENT 

TO 

LEN-ABS-6. 

I F 

TCC 

= '1 ' , 

GO 

TO 

READ- 1 . 

IF 

TCC 

= ’ A* , 

GO 

TO 

RE AD-2. 

IF 

TCC 

= ' 4‘ , 

GO 

TO 

DESERTER. 


LENGTH-ABS-G. 

MOVE TIME-ABSENT TO LEN-ABS-7. 
IF TCC = ‘1•, GO TO READ-1. 

IF TCC = ‘A', GO TO READ-2. 

IF TCC = '4', GO TO DESERTER. 

LENGTH-ABS-H. 

MOVE TIME-ABSENT TO LEN-A8S-8. 
IF TCC = '1', GO TO REAO-1. 

IF TCC = ‘AS GO TO READ-2. 

IF TCC = '4', GO TO.DESERTER. 

LENGTH-ABS-I. 

MOVE TIME-ABSENT TO LEN-ABS-9. 

IF TCC = '1•, GO TO READ-I. 

IF TCC = 'A', GO TO READ-2. 

IF TCC = *4', GO TO DESERTER. 




LENGTH-ABS-J. 

MOVE TIME-ABSENT TO LEN-ABS-10. 

IF TCC = '1•f GO TO READ-1. 

IF TCC = •A’t GO TO REAO-2. 

IF TCC = GO TO DESERTER. 

WRITE-REC. 

ADD LEN-ABS-1 LEN-ABS-2 LEN-ABS-3 LEN-ABS-4 LEN-ABS-5 
LEM-ABS-6 LEN-ABS-7 LEN-ABS-8 LEN-A3S-9 LEN-A8S-10 
GIVING TOT-DAYS-UA. 

MOVE TOT-DAYS-UA TO LOST-TIME. 

ADD TOT-DAYS-UA TO USMC-0AYS-LOST. 

DIVIDE 10 INTO TOT-DAYS-UA GIVING AVG-TIME-UA ROUNDED. 
WRITE MASTER-REC FROM OUT-REC. 

MOVE ZEROS TO LENABS. 

IF EOJ = 1 GO TO FINISH. 

GO TO START-1. 

WRAP-UP. 

MOVE 1 TO EOJ. 

IF WS-l-TCC = 'O' GO TO UPDATE-WRITE-1. 

GO TO UPDATE-WRITE-3. 

WRAP-A . 

MOVE 1 TO EOJ. 

GO TO UPDATE-WRITE-2. 

FINISH. 

DIVIDE TOTAL-NO-UAS INTO USMC-DAYS-LOST 
GIVING USMC-AVG-LEN-UA ROUNDED. 

EXHIBIT NAMED COUNTER. 

EXHIBIT NAMED TOTAL-NO-UAS. 

EXHIBIT NAMED UA-CTR. 

EXHIBIT NAMED ERROR-l-CTR. 

EXHIBIT NAMED ERR0R-2-CTR. 

EXHIBIT NAMED ERR0R-3-CTR. 

EXHIBIT NAMED ERR0R-4-CTR. 

EXHIBIT NAMED ERR0R-5-CTR. 

EXHIBIT NAMED DUPE-REC. 

EXHIBIT NAMED EXCUSED-ABS-1-CTR. 

EXHIBIT NAMED EXCUSED-ABS-2-CTR. 

EXHIBIT MAMED USMC-DAYS-LOST. 

EXHIBIT NAMED USMC-AVG-LEN-UA. 

CLOSE PERS-REC WITH DISP. 

CLOSE MASTER-LIST WITH DISP. 

STOP RUN. 



APPENDIX E 


SPSS LISTINGS 


This appendix is bound separately. 
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